"/tmp/input" ascii file-lines [ "<,>=" split { 2 3 4 7 } swap nths [ string>number ] map unclip-last 2array ] map dup [ second ] supremum-by first2 [ [ first ] 2dip [ [ - abs ] 2map sum ] dip <= ] 2curry count .