### 
'АВИОРТФ'
.cartesian(6)
.numerate
.Where(\(a,b)->(b.countof('Р')=2) and (b[1]<>'О') and (a mod 2 =0))
.cnt
.Print