result←steps Rule110 now;i;step;next;pad
result←0/[1]⎕FMT steps 1 steps/' '
:For step :In +\steps/1
pad←(steps-step-1)/0
result,[1]←pad,now,pad
next←0/0
now←0,now,0
:For i :In +\now=now
:Select (0,now,0)[i+0 1 2]
:CaseList (1 1 1)(1 0 0)(0 0 0)
next,←0
:Else
next,←1
:EndSelect
:EndFor
now←next
:EndFor
result,[1]←now