"/tmp/input" ascii file-lines [ string>number ] map natural-sort 0 prefix dup rest dup last 3 + suffix swap v- [ histogram 3 1 [ of ] bi-curry@ bi * . ] [ but-last { 3 } split [ length { 1 1 2 4 7 } nth ] map product . ] bi