squeeze :: Pattern Int -> [Pattern a] -> Pattern a
chooses between a list of patterns, using a pattern of integers
see also: pickF, select, selectF
