main = sigma 0 10

sigma : Int -> Int -> Int
sigma from to = case from == to of
        True => from
        False => to + sigma from (to - 1)