let append_init_command s =
  init_commands := !init_commands @ [s]