($g,$c,$p)=glob<>;
$$_++for<>=~/./g;
0while$g&&$C&&(--$g,--$C,$%+=3)||$c&&$P&&(--$c,--$P,$%+=3)||$p&&$G&&(--$p,--$G,$%+=3);
0while$g&&$G&&(--$g,--$G,++$%)||$c&&$C&&(--$c,--$C,++$%)||$p&&$P&&(--$p,--$P,++$%);
print$%