practice

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])