#!perl
# -*- perl -*-
$ul=0;
print "Chimera Bookmark\n";
print "Nice Places to Visit
\n";
print "(updated on `date`)\n";
while(<>) {
chop;
@F=split(/ /,$_,3);
if($F[0] eq "group") {
print "\n" if($ul == 1);
print "
$F[1]
\n\n";
$ul=1;
next;
}
if($F[0] eq "mark") {
print "- $F[2]\n";
next;
}
print "
$_
\n";
}