к
s <- getLine
и вводить
123
(не "123"), то s будет иметь значение "123" (не "\"123\""), его можно преобразовать в число ридом, read s :: Int == 123
Size: a a a
к
JS
T
JS
ВБ
JS
T

ХГ
YS

IO Int и другую функцию типа Int -> IO (), и после этого всего вернёт IO ()T
AP
do
x <- readLine
putStrLn $ lucky xХГ
E
AP
readLine = fmap read . getLineT
AP
E
T
ЗП
E