let push s cmd = s := cmd :: !s