let
append_command s =
commands := !commands @ [s]