#!/usr/local/bin/wermit
fopen /read \%c datesfile
while not \f_eof(\%c) {
    fread \%c line
    if eq "\s(line[1:1])" ";" {
        echo \m(line)
        continue
    }
    xecho "\frpad(\m(line),40)"
    date \m(line)
}
exit 0