17 lines
413 B
OCaml
17 lines
413 B
OCaml
open Meat
|
|
|
|
let () =
|
|
print_int (Array.length Sys.argv);
|
|
if Array.length Sys.argv >= 2 then (
|
|
print_endline " args. contents:";
|
|
Array.iter print_endline Sys.argv;
|
|
match String.lowercase_ascii (Array.get Sys.argv 1) with
|
|
| "yum" -> yum ()
|
|
| "cook" -> cook ()
|
|
| "poke" -> poke ()
|
|
| "gut" -> gut ()
|
|
| "look" -> look ()
|
|
| "fresh" -> fresh ()
|
|
| _ -> help ()
|
|
) else help ();
|