(* 5 6)

## My first function definition!
(def (repeat n val)
  (if (<=' n 0)
    (#Nil [])
    (#Cons [val (repeat (-' n 1) val)])))

## Testing one, two, three...
(repeat 5 5)

(def (fold f init inputs)
  (case inputs
    #( Outer comment #( Inner comment )# )#
    (#Nil [])            init
    (#Cons [head tail]) (fold f (f init head) tail)))

## It's alive!
(fold * 1 (repeat 5 5))