type external out_channel = "Pervasives.out_channel"
let external (stdout : out_channel) = "Pervasives.stdout"
let external
(output_char : out_channel -> char -> unit)
= "Pervasives.output_char"

let (main : unit) = output_char[] stdout[] 'a'
