% pairs: [-katsaii,k-atsaii,ka-tsaii,kat-saii,kats-aii,katsa-ii,katsai-i,katsaii-]
% prefixes: [,k,ka,kat,kats,katsa,katsai,katsaii]
% suffixes: [katsaii,atsaii,tsaii,saii,aii,ii,i,]
name("katsaii").
?-
name(Name),
findall(Prefix-Suffix, string_concat(Prefix, Suffix, Name), Pairs),
pairs_keys_values(Pairs, Prefixes, Suffixes),
write("pairs: "), write(Pairs), nl,
write("prefixes: "), write(Prefixes), nl,
write("suffixes: "), write(Suffixes).