ll@L,a[]{390,429,468,507,546};char@c;wt(a[L+(c==66)-1]);