#! /usr/bin/guile \
-e main -s
!#

(define (main args)
  (for-each
   (lambda (file)
     (system (string-append "./clean_up_html.scm " file ".html"
                            " | tidy | pandoc -f html -t org > "
                            "org/" file ".org")))
   '("index" "linux_room" "music_room" "nathans_philosophy"
     "truth" "ttr" "tv_corner" "distro_guides/arch"
     "distro_guides/fedora" "distro_guides/xfce"
     "error/404")))