;RedMaker Warrior ;name HeHc ;assert 1 sub.a $ 4085, { 0 spl.f # 1 , $-1 jmn.i > 7581, * 4396 djn.x # 3253, < 0 slt.i # 4104, > 0 slt.a @-1 , {-2 end