first release

bin/dune

@@ -0,0 +1,4 @@
+(executable
+ (public_name meat)
+ (name main)
+ (libraries meat))

bin/main.ml

@@ -0,0 +1,16 @@
+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 ();