"/tmp/input" ascii file-lines
[ ", " split [ first ] [ last ] bi 2array [ string>number ] map ] map
400 <iota>
[ 400 <iota> [ 2array [ manhattan ] curry map-sum ] with with map ] with map concat
[ 10000 < ] filter length