module Sieve (primesUpTo) where

primesUpTo :: Integer -> [Integer]
primesUpTo n = error "You need to implement this function."