7 lines
155 B
Haskell
7 lines
155 B
Haskell
|
reader putLine putEOF takeCount =
|
||
|
|
do ls <- fmap lines (readFile "input.txt")
|
||
|
|
mapM putLine ls
|
||
|
|
putEOF
|
||
|
|
n <- takeCount
|
||
|
|
print n
|