; comando unit scripts (define combat (lambda (units zone) (if (member 'comando units ) (map (lambda (u) (list u '(attack-bonus 15) ) ) (filter (lambda (u) (eq? u 'plane ) ) units ) ) (print "nope" ) ) ) ) ; test (print (combat '(tank plane comando plane) '(turkey) ))