seeing/1
seeing(Filename)
Returns the name of the opened input file.
Example
see("file.txt"), seeing(File), display("Input stream:",File).
seeing(File),
display("Input stream:",File).