print map("@{[sprintf('%03b',$_)=~//g]}
",qw(555 525 505 421 104 020)[-$_]=~/./g),$/for<>