(loop
   (initial n 1 sum 0)
   (do
      (setq sum (plus sum n))
      (setq n (add1 n))
   )
   (until (greaterp n 5))
   (result sum)
)