$n=<>+0;
($a=$n)=~y/70-9/10/;
print $a+0,$",$n-$a;