records :: [InputRecord]
records = [ InputRecord day1 "foo" [1, 2, 3]
          , InputRecord day1 "bar" [4, 5, 6]
          , InputRecord day2 "foo" [6, 5, 4]
          , InputRecord day2 "bar" [3, 2, 1]
          ]
records :: [InputRecord]
records = [ InputRecord day1 "foo" [1, 2, 3]
          , InputRecord day1 "bar" [4, 5, 6]
          , InputRecord day2 "foo" [6, 5, 4]
          , InputRecord day2 "bar" [3, 2, 1]
          ]
records = [ InputRecord day1 "foo" [1, 2, 3]
          , InputRecord day1 "bar" [4, 5, 6]
          , InputRecord day2 "foo" [6, 5, 4]
          , InputRecord day2 "bar" [3, 2, 1]
          ]