(while(let*(`display,string->number(\(read))(y(read))(t((#/ (.*)/(read-line))1))(d,#`"#e,t"))(while(<(inc!\ d)y)`(if(=\ 1)1(+(*,t 0)\))`" ")`"
"))