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 ();