{
    flds = patsplit($0,a,/[A-Za-z]+/,s)
    for (i in a)
        printf "%s ",a[i]
    print ""
    for (i=1; i<=flds; i++)
        printf "%s ",s[i]
    print ""
}