; 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) ))