;redcode-94
;name sullen
;author Simon Wainwright
;assert 1
     dat <-30,<0
     mov >4,{-1
goo  spl {0,}0
     mov <-3,}2
     jmp {0,}0
     dat <30,<1
     end goo