print[grep/A/&/B/&/C/,glob'{A,B,C}'x<>]->[<>-1]||-1