let digits = "0123456789abcdefghijklmnopqrstuvwxyz"
let int2base v b =
  if v=0
  then "0"
  else
    let rec loop v =
      if v = 0
      then ""
      else loop (v / b)^String.make 1 (digits.[v mod b])
    in loop v

let main () =
  let base = int_of_string Sys.argv.(1) in
  let valu = int_of_string Sys.argv.(2) in
  let result = int2base valu base in
  print_string result;
  print_newline ();
  exit 0;;
main ()