oecho/oecho.ml


1
2
3
4
5
6
7
8
9
10

open Arg
open Unix
open Scanf
open Printf

let num = Array.length Sys.argv
let _ = if num == 2 then
    Printf.printf "%s\n" Sys.argv.(1)
    else Printf.printf "\n"