MyReadList[fileName_String, thing_:Expression] :=
	Block[{file, expr, list = {}},
		file = OpenRead[fileName];
		If[ Head[file] =!= String, Return[list] ];
		While[ True,
			expr = Read[file, thing];
			If[ expr === EndOfFile, Break[] ];
			AppendTo[list, expr]
		];
		Close[file];
		list
	]
