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