(module main)

(fn main () -> i32
  (std.io.eprint "diagnostic")
  (let arg_count i32 (std.process.argc))
  (let first_arg string (std.process.arg 0))
  (let env_value string (std.env.get "GLAGOL_EXP_3_ENV"))
  (let input string (std.fs.read_text "glagol-exp-3-input.txt"))
  (let status i32 (std.fs.write_text "glagol-exp-3-output.txt" input))
  (+ arg_count (+ status (std.string.len (std.string.concat first_arg env_value)))))