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