a # 1 60 R ' z`q`q#listfn x`q`q;f`q`q;Lio                               '
a # a,[1]  ' Lio#1                                                      '
a # a,[1]  ' $(0=1YRz`q`q#Lcr x`q`q)Y0                                  '
a # a,[1]  ' z`q`q#C(Lfx 5 0ULcr''listfn''),'' z`q`q''                      '
a # a,[1]  ' $0                                                         '
a # a,[1]  ' z#f`q`q a;b;n                                              '
a # a,[1]  ' n#-1+Rb#(a[;1]=''"'')Vb\(+/V\b`/z)>+/V\''''''''=(b#V/z#a='':'')`/a '
a # a,[1]  ' z#nY((nD9)R2),(0S90Dn_9)R1                                 '
a # a,[1]  ' z#(('' '',[1]''['',z`O(3 0F(n,1)RIn),'']''),b`O'' '',a),[1]'' ''     '
a # a,[1]  ' z[1,n+2;5]#''G''                                             '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"listfn - lists a function in standard form                 '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-returns a character matrix which appears to be a listing  '
a # a,[1]  '" of the function whose name, in quotes, is the argument.   '
a # a,[1]  '" it contains G''s, statement numbers, and exdented labels   '
a # a,[1]  '" and comments.                                             '
a # a,[1]  '"-an empty matrix is returned for non-existent and locked   '
a # a,[1]  '" functions.                                                '
Lfx a