#!/usr/local/bin/perl

print STDOUT "<!--\n";
print STDOUT ".nf\n";
print STDOUT ".in -7\n";
print STDOUT "  -->\n";
while (<STDIN>) {
	&process_line($_);
}
print STDOUT "<!--\n";
print STDOUT ".in +7\n";
print STDOUT ".fi\n";
print STDOUT "  -->\n";
exit;

sub process_line {
	local($line) = @_;

	if ($line =~ /^[ ]*o/i) {
        $line =~ s|!| !|;

       while ($line =~ /!$/) {
$line =~ s|!|.!|;
$line =~s|(........................................................................)!|$1|i;
}
$line=~s|!| |i;
$line=~s| o | |i;
        print STDOUT $line;
        }
}
