[Convert from ML to Haskell
David Fox <dsf@seereason.com>**20080707133944]