val string_to_octal : ?prefix:string -> Genspio.Common.String.t -> string
val expand_octal_command : remove_l:bool -> string -> string
val m : int Common.ref
val var_name : ?expression:'a -> ?script:'b -> Genspio.Common.String.t -> string
module Tmp_db : sig ... end
module Script : sig ... end
type Language.raw_command_annotation +=
  1. | Octal_in_variable of Common.string
val to_ir : 'a. fail_commands:(string -> Script.command list) -> tmpdb:Tmp_db.t -> 'a Language.t -> Script.t
val compile : ?default_tmpdir:[< `Fresh | `Use of Common.string Fresh ] -> ?signal_name:string -> ?trap:[< `Exit_with of int | `None Exit_with ] -> 'a Language.t -> Script.t
val test : unit -> unit