@e=split//,<>;pop(@e);
@m=split//,<>;pop(@m);
for$m1(@m){for$e1(@e){for$e2(@e){print("($e1$m1$e2)")}print("\n");}}