perform-action = *out in rq-flags + result ->
  result = sys-perform-action *out in rq-flags

  if (result = NO_ERROR) ->
    - print-string 'All done.' "\n"
  else
    - handle-error result
  ;
_
  out, in : string
  rq-flags : integer
  result : integer
;
