stdin linesDo:[:l|S:=I:=0.N:=-1.R:=11-(l size\\14/3).l do:[:c|(I:=I+1)<5or:[R=10and:[M:=3-(I\\2*2)];or:[M:=15-I].c=$?and:[Q:=M. P:=I];or:[S:=c value\\78\\48*M+S]]].[Q*(N:=N+1)+S\\R>0]whileTrue.(B:=#[],l)at:P put:N+48.('',B)displayNl]