if str `elem` exitWords
    then
        return (l,i,con)
    else
	    if length str == 1 and (read str :: Int) < b then do
            let k = (xs !! (read str - 1))
            loop (k,i,con)
		else
            let ns = numbers str
			let diag = map (getOb (i++(findContents l con))) ns
			loop (dialogue (l,i,con) (findDialogue diag))