loading
main.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
import Control.Monad.Fix (fix)

main :: IO ()
main = return ()

cond = null
process = \next (x:xs) -> x + next xs
initial = 0

mySum = fix $ \next x ->
  if cond x
    then initial
    else process next x
GHCi, version 8.6.3