#! perl -w
print "(ul()\n";
foreach (<*>) {
  print "(li()(a ((href \"other-files/$_\"))$_))\n";
}
print ")\n";
