import System.Environment



--main = interact (unlines . (map calculate) . lines)
main = do text <- readFile "ftypes.c"
          let linii = lines text
          putStrLn . unlines $ map id linii