$|=chr(ord(substr("\cX\c9",-1))-(1<<6^2));++$|;

##</code><code>##

print" "x($s+$|*8),"\r" 

##</code><code>##

print" "x($s+((($|^($|<<($=<<($|<<$|))))>>($=/($|<<$|<<$|)))<<$|<<$|)),"\r"