;redcode ;name 2520: A Space Odyssey ;author Lukasz Adamowski ;assert 1 start vamp spl #-1105, #1105 add $-1, $teeth mov $teeth, @teeth jmp $-2, $vamp dat $0, $0 dat $0, $0 dat $0, $0 dat $0, $0 dat $0, $0 teeth jmp $pit, $0 pit spl $1, {vamp-5 mov $vamp-5, {vamp-1 mov $vamp-5, {vamp-1 jmp $-3, {vamp-5 end start