#!/usr/bin/perl -w
use strict;
use utf8;

#/=======================================================================\
#| Copyright (C) 2008 Ioan A. Sucan, Wanding Zhou                        |
#| This program converts numbers up to one thousand billion into Chinese |
#| Released under the GNU General Public License                         |
#|-----------------------------------------------------------------------|
#| Wanding Zhou                                                          |
#| http://ioan.sucan.info                                                |
#\=======================================================================/

my %numbers=(0=>'零',1=>'一',2=>'二',3=>'三',4=>'四',
    5=>'五',6=>'六',7=>'七',8=>'八',9=>'九');

use constant TEN => 10;
use constant HUNDRED => 100;
use constant THOUSAND => 1000;
use constant TEN_THOUSAND => 1000_0;
use constant HUNDRED_MILLION => 10_000_000;
use constant THOUSAND_MILLION => 100_000_000;
use constant THOUSAND_BILLION => 1000_000_000_000;

my $ten_marker=0;
sub convert {
    my ($nr)=@_;
    return $numbers{$nr} if $nr < TEN;
    if($nr<HUNDRED){
        my $rest=$nr % TEN;
        my $tens=($nr-$rest)/TEN;
        return $rest==0 ? (($tens==1 and $ten_marker==0) ? '十' : $numbers{$tens}.'十') : (($tens==1 and $ten_marker==0) ? '十'.convert($rest):$numbers{$tens}.'十'.convert($rest));
    }
    if($nr<THOUSAND){
        my $rest=$nr % HUNDRED;
        my $hundreds=($nr-$rest) / HUNDRED;
        $ten_marker=1;
        return $numbers{$hundreds}.'百' if $rest==0;
        return $numbers{$hundreds}.($rest>=TEN ? '百' : '百零').convert($rest);
    }
    if($nr<TEN_THOUSAND){
        my $rest=$nr % THOUSAND;
        my $thousands=($nr-$rest) / THOUSAND;
        $ten_marker=0;
        return $numbers{$thousands}.'千' if $rest==0;
        return $numbers{$thousands}.($rest>HUNDRED ? '千':'千零').convert($rest);
    }
    if($nr<THOUSAND_MILLION){
        my $rest=$nr % TEN_THOUSAND;
        my $ten_thousands=($nr-$rest) / TEN_THOUSAND;
        $ten_marker=0;
        return convert($ten_thousands).'万' if $rest==0;
        return convert($ten_thousands).($rest>THOUSAND ? '万' :'万零').convert($rest);
    }
    if($nr<THOUSAND_BILLION){
        my $rest=$nr % THOUSAND_MILLION;
        my $thousand_millions=($nr-$rest) / THOUSAND_MILLION;
        $ten_marker=0;
        return convert($thousand_millions).'亿' if $rest==0;
        return convert($thousand_millions).($rest>HUNDRED_MILLION ? '亿':'亿零').convert($rest);
    }

    '无穷大';
}

my $nr = <STDIN>; chomp($nr);
binmode STDOUT,":utf8";
print $nr<0 ? '负'.convert(-$nr) : convert($nr)."\n";