(* Pretty-print lists of instructions *)
open Instruct
val instruction: instruction -> unit
val instrlist: instruction list -> unit