sug([], []).
sug([_|T1], [_|T2]) :- sameExceptLast(T1, T2).
sameExceptLast([], []).
sameExceptLast([_], [_]).
sameExceptLast([X|T1], [X|T2]) :- sameExceptLast(T1, T2).
:- sug
([a
,b
,c
,d
], [x
,b
,c
,y
]), write(yes
). :- sug
([a
,b
,c
],[d
,e
,f
]), write(yes
).
ICAgIHN1ZyhbXSwgW10pLgogICAgc3VnKFtffFQxXSwgW198VDJdKSA6LSBzYW1lRXhjZXB0TGFzdChUMSwgVDIpLgogICAgc2FtZUV4Y2VwdExhc3QoW10sIFtdKS4KICAgIHNhbWVFeGNlcHRMYXN0KFtfXSwgW19dKS4KICAgIHNhbWVFeGNlcHRMYXN0KFtYfFQxXSwgW1h8VDJdKSA6LSBzYW1lRXhjZXB0TGFzdChUMSwgVDIpLgo6LSBzdWcoW2EsYixjLGRdLCBbeCxiLGMseV0pLCB3cml0ZSh5ZXMpLgo6LSBzdWcoW2EsYixjXSxbZCxlLGZdKSwgd3JpdGUoeWVzKS4=