;redcode-94 ;name Nano Clear ;author Christian Schmidt ;strategy d-clear ;-) ;assert 1 gate equ (x-5) mov.i {-8, {-18 x spl #0, 0 mov.i b, >gate djn.f -1, >gate b dat <1, 2-gate end