mapM_ (putStrLn . show) $ repeat 1