11 lines
430 B
Plaintext
11 lines
430 B
Plaintext
(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)))))
|