RISC code output

TODO: fix wrong order for conversion in cfgrisc

lib/utility/utility.ml

@@ -11,3 +11,12 @@ let rec powmod a d = function
   | n ->
     let b = (powmod a d (n / 2)) mod d in
     (((b * b) mod d) * (if n mod 2 = 0 then 1 else a)) mod d
+
+let rec fromIntToString (alphabet: string) (x: int) : string =
+  let base = String.length alphabet in
+  if x < 0 then
+    ""
+  else if x < base then
+    String.get alphabet x |> String.make 1
+  else
+    (fromIntToString (alphabet) (x/base - 1)) ^ (String.get alphabet (x mod base) |> String.make 1)

lib/utility/utility.mli

@@ -1,3 +1,5 @@
 val pow : int -> int -> int
 
 val powmod : int -> int -> int -> int
+
+val fromIntToString : string -> int -> string