\START92\
\COMMENT=Parses input to a list of binary numbers
\NAME=parse
\FILE=day4.parse.92f
(numipts,patt)
Func
Local result,i

newList(numipts)\->\result
For i,1,numipts
 parseln(expr(patt&string(i)))\->\result[i]
EndFor
result
EndFunc

\STOP92\