||
||	for jk12: based on a past Miranda paper question
||

iidd == [char]	||can't call it id: id is built in
		||not clear if this is meant to be answer to first sentence

useriidds :: [([char],[char])] -> [iidd]
	useriidds [] = []
	useriidds (((hs:ts) , (hf:tf)) : rest)
		= [hf,hs] : useriidds rest


isThere :: [iidd] -> iidd -> bool
	isThere [] person = False
	isThere (h:t) person = True, if h=person
			     = isThere t person, otherwise
