``` active haskell
main = do
    a <- getLine
    interact
    putStrLn a
```