# (find-fline "~/TCL/files")
# (find-fline "~/TH/Makefile.th" "# For tests.")

puts [pwd]
puts [file dirname [info script]]/Files.tcl

source [file dirname [info script]]/Files.tcl

foreach {key list} $keys_and_dests {
  set FILES($key) $list
}
proc stripa {str} { string range $str 2 end }
proc flink {anggfile} {
  L a/$anggfile $anggfile
}
proc flinkh {anggfile} {
  J [L a/$anggfile $anggfile] \
      ([L a/$anggfile.html htmlized])
}


htmlize {Edrx: files from my home machine} {
  [LIST11 [concat [Map1 flinkh $FILES(anggtrans)] \
                  [Map1 flink  $FILES(anggnontrans)]]]
}