1BEGIN { RS = "A" }
2{print NF; for (i = 1; i <= NF; i++) print $i ; print ""}
3