How to write a Tcl script which will create a list of models and subcircuit names

Question

I got stuck in a Tcl script which will create a list of models and subcircuit names contained within a Spice .lib file: The name of the .lib file should be given on the comm