dayPrefix :: DayPrefix -> IO ()
dayPrefix dayP = do
    printf " %-9s | " dayP
    hFlush stdout
dayPrefix :: DayPrefix -> IO ()
dayPrefix dayP = do
    printf " %-9s | " dayP
    hFlush stdout
dayPrefix dayP = do
    printf " %-9s | " dayP
    hFlush stdout