P.S. here's a variant approach which might be easier to think about:
Noun=: `''
Verb=: `:6
substUV=:0&({::)@[`(1&({::)@[)[EMAIL PROTECTED]((<;._1 ' u v') i. <@])L:_ 0
pgr=: substUV&((HdLt u ] v TlLt)Noun)
(pgr +/`(-/)) Verb
HdLt +/ ] -/ TlLt
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
