fact
 if n < 1
    return
 endif
  * n fn fn
 - n
 call fact
 return

start

 if i < 20
    1 fn
    i n
    call fact
    fn []
    + i
    goif
 endif