print%a=map{/.*\$/g,sprintf"%x
",($
$&//=1)*=hex$'}<>