J

Size: a a a
J
IR
TZ
TZ
MS
greet = do
putStr “Enter your name: “
name <- getLine
putStrLn $ “Hello, “ ++ name
main = do
putStr “How many people do you want to greet: “
n <- readLn
replicateM_ n greet
MS
MS
MS
MS
JS
JS
JS
JS
n <- readLn :: IO Int
JS