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