method add_action a = actions <- [a]@actions