n =: <(<(<':'),<(<(,'0');1),<<;._1 ' 0
".c=.''<('''':'''';<((":0);<1);<(":0);<''''".c=.'''''''''''',((#~[:>:(39{a.)&=)c),39{a.);<<''''?'''''''),<<'?'
n 5!:0 -: n
1Ambrus ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
