constructN 3 f = let a = f <> ; b = f <a> ; c = f <a,b> in <a,b,c>
constructrN 3 f = let a = f <> ; b = f<a> ; c = f <b,a> in <c,b,a>
constructN 3 f = let a = f <> ; b = f <a> ; c = f <a,b> in <a,b,c>
constructrN 3 f = let a = f <> ; b = f<a> ; c = f <b,a> in <c,b,a>
constructN 3 f = let a = f <> ; b = f <a> ; c = f <a,b> in <a,b,c>
constructrN 3 f = let a = f <> ; b = f<a> ; c = f <b,a> in <c,b,a>
constructN 3 f = let a = f <> ; b = f <a> ; c = f <a,b> in <a,b,c>
constructrN 3 f = let a = f <> ; b = f<a> ; c = f <b,a> in <c,b,a>
constructN 3 f = let a = f <> ; b = f <a> ; c = f <a,b> in <a,b,c>
constructrN 3 f = let a = f <> ; b = f<a> ; c = f <b,a> in <c,b,a>