Prolog comp testcase has an error - probably from copy paste.
I didn't know what was wrong, so I leaked the comp testcases and found that
there are identical testcases, but with different expected results.

A1:
[11,19,121,144,161]=1
[11,19,121,144,161,191,195,1440]=1
[0]=1
[2,3]=1
[2,3]=0

A2:
[121,361,14641,20736,25921]=1
[121,361,14641,20736,25921,36481,38025,2073600]=1
[0]=1
[4,9]=1
[4,9]=0

comp([2,3],[4,9],1).
comp([2,3],[4,9],0).
Both can't be true.