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)…