BEGIN {
}
/[[]/ {
  while (match($0, "[[][0-9]*[]]") ) {
     idx=substr($0,RSTART+1, RLENGTH-2) "."
     rem=substr($0,RSTART+RLENGTH)
     match(rem, "[^[]*([[]|$)")
     name=substr(rem, RSTART,RLENGTH-1)
     if (length(rem)==(length(name)+1))
         name=substr(rem, RSTART)

     arr[idx]= name
  $0=substr(rem, RSTART+RLENGTH-1)
  }
  next
}
$1 in arr { print arr[$1] ORS $2 }