header :: IO ()
header = do
    putStrLn "-----------+-----------------------+- part 1 ---------------------+- part 2 ---------------------"
    putStrLn " day       | answers               |    time allocs maxhea maxmem |    time allocs maxhea maxmem "
    putStrLn "-----------+-----------------------+------------------------------+------------------------------"
header :: IO ()
header = do
    putStrLn "-----------+-----------------------+- part 1 ---------------------+- part 2 ---------------------"
    putStrLn " day       | answers               |    time allocs maxhea maxmem |    time allocs maxhea maxmem "
    putStrLn "-----------+-----------------------+------------------------------+------------------------------"
header = do
    putStrLn "-----------+-----------------------+- part 1 ---------------------+- part 2 ---------------------"
    putStrLn " day       | answers               |    time allocs maxhea maxmem |    time allocs maxhea maxmem "
    putStrLn "-----------+-----------------------+------------------------------+------------------------------"