(* an 'alias' is an alternate name with minor or no alterations to behavior *)

(* exceptions *)
exception Malformed_source = Exceptions.Malformed_source
exception Malformed_state = Exceptions.Malformed_state

(* logging *)
let print = print_endline
let elog = Log.elog

(* casts *)
let str_int = string_of_int
let chars_str = Text.chars_of_string
let str_chars = Text.string_of_chars
let str_char = String.make 1
let str_dbool = Schema.string_of_default_bool

(* control flow & precedence *)
let ($) = (@@)

(* lists *)
type 'a lists = 'a list list
let ($:) list element = list @ [element]
let pick index list = List.nth list index
let rmap = List.rev_map
let reverse = List.rev
let length = List.length
let ifilter = List.filteri
let imap = List.mapi
let map = List.map