#!/usr/bin/env rexx


/* Rexx */
Address system
parse arg parms

Address system "pwd" with output stem pwd.
say pwd.1


call parse_argv

say "Instruction: " || instr
say "Parameter  : " || parm

exit

parse_argv: procedure expose parms instr parm
  parse var parms instr "(" parm ")"
  if instr="" & parm="" then call HELP
  return

HELP:
  /* "clear" */
  say "********************************************************"
  say "*      YOUR STRINGS WERE EMPTY. HOW DARE YOU.          *"
  say "********************************************************"
  exit 1