#!/usr/bin/perl

sub morg {
  if ($_[0]) {
    return $_[0];
  } else {
    return "0";
  }
}

while (<>) {
  print morg(int($_/27));
  print morg(int($_/9 % 3));
  print morg(int($_/3 % 3));
  print morg(int($_ % 3));
  print "\n";
}