main = do
    stdin <- getContents
    let floor = foldl changeFloor 0 stdin
    putStrLn $ "Santa is on floor " ++ show floor
main = do
    stdin <- getContents
    let floor = foldl changeFloor 0 stdin
    putStrLn $ "Santa is on floor " ++ show floor
main = do
    stdin <- getContents
    let floor = foldl changeFloor 0 stdin
    putStrLn $ "Santa is on floor " ++ show floor