module {
    features = [chr]
}
import "StandardLibrary"

main = select (?a,?b) where
    ?a <- [1,2,3]
    ?b <- [2,3,4]
--
[(1,2), (1,3), (1,4), (2,2), (2,3), (2,4), (3,2), (3,3), (3,4)]