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