;redcode-94b
;name xn
;author Val
;assert 1
;Xn+1 = (aXn + c) mod m
step equ 777
paper mov #9, #0
next mov #step, #0
mul.a #7, next
add.a #13, next
mod.a #3999, next
copy mov <paper, {next
jmn copy, paper
spl >paper, {-1277
dest jmp *next, *0