readRecord :: String -> [String]
readRecord = fst . last . readP_to_S p
  where
      p = sepBy (many (satisfy (/='|')))(char '|')
readRecord :: String -> [String]
readRecord = fst . last . readP_to_S p
  where
      p = sepBy (many (satisfy (/='|')))(char '|')
readRecord = fst . last . readP_to_S p
  where
      p = sepBy (many (satisfy (/='|')))(char '|')