;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