p4 :: Int
p4 =

main = putStrLn $ "Solution: " ++ show p4