schelog %= %==
(%which (X Y Z U V W ) (%== (list X Y Z) (list U V W) )) >#f (%which (X Y Z U V W ) (%= (list X Y Z) (list U V W) )) >'((X . _) (Y . _) (Z . _) (U . _) (V . _) (W . _)) (%which (X Y Z U V W ) (%= (list X Y Z) (list U V ) )) >#f
(%which (X Y Z U V W ) (%== (list X Y Z) (list U V W) )) >#f (%which (X Y Z U V W ) (%= (list X Y Z) (list U V W) )) >'((X . _) (Y . _) (Z . _) (U . _) (V . _) (W . _)) (%which (X Y Z U V W ) (%= (list X Y Z) (list U V ) )) >#f