with import ../lib;

let
  input = fileContents ./input.txt;
in

pipe input [
  (splitStr "\n\n")
  (map (flip pipe [
    (splitStr "\n")
    (map toInt)
    sum
  ]))
  (sort (flip lessThan))
  (take 3)
  sum
]