reading s-expressions from a file

The “read” function makes really easy to read a bunch of s-expressions from a file, but how can I keep track of the line number where the expressions were in the file? Any ideia? Alexandre Sent from my iPhone