1module Main where
2
3import Prelude
4import Effect.Console (log, logShow)
5
6f x y =
7  let
8    g = case y of
9          0.0 -> x
10          x -> 1.0 + x * x
11  in g + x + y
12
13main = do
14  logShow $ f 1.0 10.0
15  log "Done"
16