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