Implemented in Perl. Kang-min Liu C<< <gugod@gugod.org> >>