BEGIN {
    vlozh = 20
    for (i=1; i <= vlozh; i++) {
        off[i] = ""
        for (j=1; j <= i; j++) {
            off[i] = off[i] " "
        }
    }
    last_uroven = 0
    print "(bookmarks"
}
{
    uroven = 1
    for (i=1; i <= vlozh; i++) {
        if (substr($0, i, 1) == "\t") {
            uroven += 1
        } else {
            break
        }
    }
    out_str = $1
    for (i=2; i < NF; i++) {
        out_str = out_str " " $i
    }
    page = $NF
    if (uroven <= last_uroven) {
        print off[last_uroven] ")"
    }
    print off[uroven] "(\"" out_str "\" \"#" page "\""
    last_uroven = uroven
}
END {
    do {
        print off[last_uroven] ")"
        --last_uroven
    } while (last_uroven > 0)
    print ")"
}