迷路189B
http://shinh.skr.jp/m/?date=20100113#p06
http://route477.net/d/?date=20100117#p01を参考にしつつ
(map writeb(ccc[loop(= m(drain:readb)w(+(pos 10 m)1)v(+ m)q `((,(pos 83 m),m)))(= p pop.q)(on n `(1 -1,w,-.w)(case(min(v:++ n p.0)m.n)71(_:p 1)32(=(v n)0 r(+ p.1)r.n 36 q `(,@q(,n,r)))))]))