added Michelson/OjusWiZard.tz (#137)

narze · Oct 3, 2022 · 3fc1da5 · 3fc1da5
1 parent f0f38ca
commit 3fc1da5
Showing 1 changed file with 31 additions and 0 deletions.
diff --git a/Michelson/OjusWiZard.tz b/Michelson/OjusWiZard.tz
@@ -0,0 +1,31 @@
+parameter (string %to_code);
+storage   string;
+code
+  {
+    CAR;
+    DUP;
+    PUSH nat 1;
+    PUSH nat 5;
+    SLICE;
+    IF_NONE
+      {
+        PUSH int 9;
+        FAILWITH;
+      }
+      {};
+    PUSH string "d";
+    DIG 2;
+    PUSH nat 2;
+    PUSH nat 0;
+    SLICE;
+    IF_NONE
+      {
+        PUSH int 9;
+        FAILWITH;
+      }
+      {};
+    CONCAT;
+    CONCAT;
+    NIL operation;
+    PAIR;
+  };