combine :: (a, a) -> a -> (a, a, a)
combine (x, y) z = (x, y, z)
where
a = [(1, 1), (1, 2), (1, 3)]
b = [4, 5, 6]
Y29tYmluZSA6OiAoYSwgYSkgLT4gYSAtPiAoYSwgYSwgYSkKY29tYmluZSAoeCwgeSkgeiA9ICh4LCB5LCB6KQoKbWFpbiA9IHByaW50ICh6aXBXaXRoIGNvbWJpbmUgYSBiKQogICAgd2hlcmUKICAgICAgICBhID0gWygxLCAxKSwgKDEsIDIpLCAoMSwgMyldCiAgICAgICAgYiA9IFs0LCA1LCA2XQ==