sub f{s/./substr"@_ |___|_|",$&*2,2/ger}print'_'x2**($n=<>)x4^'',map'
|'.f,eval"map{f(12012033),f __31$$}"x$n.12