readme

README.md

@@ -0,0 +1 @@
+this is chopped dont look at it

bin/main.ml

@@ -9,6 +9,7 @@ let () =
         | "cook" -> cook ()
         | "poke" -> poke ()
         | "gut" -> gut ()
+        | "trade" -> trade ()
         (* | "look" -> look () *)
         | "fresh" -> fresh ()
         | _ -> help ()

lib/meat.ml

@@ -8,6 +8,7 @@ let help =
    POKE   -  TASTE SUSPICIOUS MEATS
    GUT    -  CLEAN MEAT STORES
    FRESH  -  HUNT FRESH MEATS
+   TRADE  -  SEND MEATS FAR AWAY
    ..-A   -  ..ALL MEATS|}
 
 (* \tLOOK   -  LOOK FOR FRESHER MEATS *)
@@ -49,6 +50,19 @@ let do_build () =
   do_cmd @@ "sudo " ^ tmpdir ^ "/build/bin/switch-to-configuration switch"
   >|= fun () -> Unix.unlink @@ tmpdir ^ "/build"
 
+let do_remote () =
+  meat_print "tbd";
+  Ok ()
+
+let trade () =
+  print_string header;
+  meat_print "TRADING FOREIGN MEATS..";
+  do_remote () |> function
+  | Error _ -> print_string "FAILED TO TRADE MEATS."
+  | _ ->
+      ();
+      print_string footer
+
 let yum () =
   print_string header;
   meat_print "CONSUMING DELICIOUS MEATS..";