zOs/REXX/WSHTUT0Y

$#@
$@%[cal - eins zwei drei, vier fuenf sechs
    cal   2ins 2wei 2rei, 2ier 2uenf 2echs$]
$@^[ret - einR zweR dreR, vieR fuenR sechR
    ret   2inR 2weR 2reR, 2ieR 2uenR 2echR
    ret --[ 2inR 2weR 2reR, 2ieR
    2uenR 2echR
    2sieb 2acht$] $]

$proc $@/cal/
$arg c1 c2, b1 b2
    $$ cal(c1=$c1 c2=$c2, b1=$b1 b2=$b2)
$/cal/
$proc $@/ret/
$arg r1 r2, b1 b2
    return 'ret(r1='$r1 'r2='$r2', b1='$b1 'b2='$b2'}'
$/ret/
$#out                                              20150504 11:15:34