(set n 100) (prog (set i 0) (set a 0) (set b 1) (set c 0) (while (greater n i) (prog (set a (plus a b)) (set b c) (set c a) (set i (plus i 1))) ) a)