import "Prelude"

main :: [Integer]
main = [x | x <- [1..10], then take 3]
--
[1, 2, 3]