;; fibonacci sequence
;; inspired by the example in LDPL
    SET %length, 30
    SET %a, 1
    SET %b, 1
while:
    GT %length, 0, $a
    JIF end_while
    ADD %a, %b, %a
    STORE %b, %a
    PRINL %a
    SET $x, 1
    SUB %length, $x, %length
    JUMP while
end_while:
    EXIT