#!/usr/bin/perl -w

print oct("178"), "\n";