Typo
[packages/base.git] / tests / take001.hs
1 -- Test for bug #1219, F/B rule for take was too strict
2 import System.Environment
3 main = do
4 (n:_) <- getArgs
5 print (map (const 'x') (take (read n) (undefined:undefined)))