Author Anonymous
 Title (undefined)
 Created at Wed May 20 18:30:55 UTC 2015
-- Compute the sum if the integers from 1 to n.
sumtorial :: Integer -> Integer
sumtorial 0 = 0
sumtorial n = n + sumtorial (n - 1)

main = print (sumtorial 10)
Result
Not in scope: ‛example’
Perhaps you meant ‛sample’ (imported from Diagrams.Prelude)
Warning
Top-level binding with no type signature: main :: IO ()