#!/usr/bin/perl -l
print,s/^/_/,s/./$'& z^$&^Z/eg,y/5/o/for($a=o)x80

##</code><code>##

#!perl -l
$x=2**pop;print$"x--$x,map$x&$_?$"x2:"/\\",0..$y++while$x