#!/usr/bin/env rexx

/* Rexx */
Address system
parse arg parms

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