Discovery of painter styles and motifs

SetDirectory["~/courses/MATH547ML/data/paintings"];
PF1=KahloPaintings=FileNames["Frida*"];
PF2=VanGoghPaintings=FileNames["Vincent*"];
nKahloPaintings = Length[KahloPaintings];
nVanGoghPaintings= Length[VanGoghPaintings];
{nKahloPaintings,nVanGoghPaintings}

TransferStyle[k_,F1_,F2_]:=Module[{im,im1,im2},
im1=Import[F1[[k]]]; im2=Import[F2[[k]]];
im=ImageRestyle[im1,im2];
Return[{im1,im2,im}]]

TransferStyle[35,PF1,PF2]

TransferStyle[55,PF1,PF2]