feven :: [Int] -> [Int]
feven [] = []
feven (x:xs)| x `mod` 2 == 0 = (x:feven xs)
| x `mod` 2 /= 0 = feven xs
main = do
let var1 = 1
let var2 = 2
print(var1 + var2)
let x = [a*a| a <- [1..5]] --list comprehension
print(x)
print ['a'..'f']
print [-8..5.5] --random tests
print (5 `rem` (-3)) --remainder
print (5 `mod` (-3)) --modulus
print (5 `quot` (-3)) --quotient (truncated towards zero)
if var1 < var2
then putStrLn "thot"
else putStrLn "that"
let var1 = 2
print(var1)
print([(\x -> x*x) 2..5])
print([a/2| a <- [2..6]])
print (feven[0,1,2,3,4,5,6,7,8,9,10])
