ghost0.ghc

mov a,255
mov b,0
mov c,255

inc c
jgt 7,[c],a

mov a,[c]
mov b,c
jlt 3,c,3

mov a,b
int 0

int 3
int 6
inc [b]
hlt