#!/usr/local/bin/perl -ln0777

$\ ='
';
$c = 0;

s/^\s+//;
s/\s+/ /gs;

while ( s/(.{$c,}?. |.+$)// ) {

  print " " x (40 - ($c = 1 + length $1) / 2), $1
}