Using The GUMP Parser

fun {FromFile File}
   Scanner = {New DataScanner init}
   Parser  = {New DataParser  init(Scanner)}
   Entries Status
in
   {Scanner scanFile(File)}
   {Parser parse(info(Entries) Status)}
   {Scanner close}
   if Status then Entries else raise oops end end
end