fun fileReader(infile: string, crossing: string) =
	let
		val ins = TextIO.openIn infile
		val file = "" : string
		fun helper(line: string option) =
			case line of
				NONE => (TextIO.closeIn ins)
				| SOME l => (file ^ l)
	in
		helper(TextIO.inputLine ins)
	end;