a <- b & d. b <- e & f. c <- h & e. d <- e. d <- b & g. e <- h. g <- c & d. h.
passed_each([],St). passed_each([C|R],St) <- passed(St,C) & passed_each(R,St).