sandglass by BioFALSE

$_=<>;
$L=length;
sub w{substr$_,$_[0],$i,' 'x$i}
for$i((0)x3,1..-3+.5*$L){
w 2;w-3-$i;
$j++&&s/^.|.$/ /g;
push@a,$_}
print@a;
$L%2||pop@a;
print reverse@a

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page