2 + 3

(+) 2 3

putStrLn "Hello from CoCalc"

primesTo m = eratos [2..m]               
    where
    eratos []     = []
    eratos (p:xs) = p : eratos (xs `minus` [p, p+p..])

primesTo 10