{
    if ( $0 ~ /^ *[0-9]/ ) {
    for ( i = 1; i <= NF; i++ ) {
        if ( i == 1 ) { printf $i";" }
        if ( i > 1 && $i ~ /[A-Z0-9]/ ) {
        j = i
        while ( $j !~ /\.[0-9][0-9]/ && j <= NF ) {
            field = field $j" "
            j++
        }
        sub(/ $/,"",field)
        if ( j < NF ) {
            printf field";"
        }
        if ( j == NF+1 ) {
            print field
        }
        i = j
        field = ""
        }
        if ( i > 1 && $i ~ /[0-9]/ || $i ~ /\-[0-9]/ ) {
        if ( i != NF ) {
            printf $i";"
        } else {
            print $i
        }
        }
    }
    }
}