putNtimes:: Int-> String -> IO ()
putNtimes n str
            = if n<=1
                then putStrLn str
                else do putStrLn str
                        putNtimes (n-1) str