14 lines
299 B
OCaml
14 lines
299 B
OCaml
open Meat
|
|
|
|
let () =
|
|
if Array.length Sys.argv >= 2 then (
|
|
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 ();
|