: fuel  ( m   -- n ) 3 /i 2 - 0 max [ f ] when-zero ;
: part1 ( seq -- n ) [ fuel ] map-sum ;
: part2 ( seq -- n ) [ [ fuel ] follow rest sum ] map-sum ;