Catenate[NotebookImport[%428,"Input""Expression"]]
In[]:=
Out[]=
Out[]=