(grid psudocode)

:start
b = 0
:main
z = '0'
c = 0
b + 1

goto zahz
:mainb
if b = 5 goto end
goto main


:zahz
c = c + 1

a = c

z = '_l' + z

if a = 2(input1 line) goto check
:cret



if c = 5 goto pli
goto zahz



:check
(b in main loop)

if b = 3 input 2 z = #l
goto cret

:pli

print z

goto mainb
:end

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)