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