#!/usr/local/bin/perl -w
# reads in a bookmark file made by netscape
#
# and prepends a clicky index
# usage
# bkmk.p bk.html > bk2.html
#
# copyleft (c) David MacKay 1998
# my procedure:
# mv ~/ra/t.html ~/pub/bookmks.html
# bkmk.p bookmks.html > bkmks.html
# cp ~/bin/bkmk.p ~/pub/code/perl
#
$killdates=1 ; # whether to strip out date info to make the file more compressed
@a = <> ;
# $b = join(@a) ;
# get rid of all the lines that are not
#
#
# ' ;
print '