print "use Filter::UUdecode ;\n" ;

while (<>) {

    print pack("u", $_) ;

}