zOs/REXX/X

$#=
eins
  $@   say zwei date('s')
zwei $-%[a arg for a$]
$proc a $@=[
  $@ parse arg , a1
 a($-[a1$]) returns line 1
                          und zwei
$]
$#out                                              20140714 06:47:40