sub xxx {
my $s = shift;
$s =~ s/^\n+//;
$s;
}