/* checks for individuals with children by at least 'k' spouses
*/
proc main () {
	"Number of families with children, Name, Key\n"
	set(flag, 0)
	getintmsg(k, "Enter number of spouses")
	forindi(i, n) {
		if (ge(nspouses(i), k)) {
			set(count, 0)
			spouses(i, i2, f, sn) {
				if (gt(nchildren(f), 0)) {
					set(count, add(count, 1))
				}
			}
			if (ge(count, k)) {
				set(flag, 1)
				 d(count) "  " name(i) ", " key(i) nl()
				print("*")
			} else {
				print(".")
			}
		}
	}
	if (not(flag)) {
		print(nl(), "No individual had ", d(k)," families with kids.\n")
	}
}