:-[connect].
test_connection(Goal) :-
    Goal = connect(Cables,E1,Len,E2),
    format('Case: ~w ~w ~w ~w~n', [E1,E2,Len,Cables]), call(Goal).
