moved cartesian-product to f#

made fold and map variable number of lists