Help for this page
$|=chr(ord(substr("\cX\c9",-1))-(1<<6^2));++$|;
print" "x($s+$|*8),"\r"
print" "x($s+((($|^($|<<($=<<($|<<$|))))>>($=/($|<<$|<<$|)))<<$|<<$|)) +,"\r"