;redcode
;name Bad Stone
;author Paul Khuong
 ;assert 1
         jmp     }1,     }1
         mov     {1,     <-1
         spl     -1,     <-1
         mul     *-1,    @-1
         jmp     @-1,    >1
         dat.f 1,1
         end