/repair { % - => - (repair the board)
    DAMAGE_TAG tagprint uniquecid dup typedprint
    [exch cidinterest] forkeventmgr
    waitprocess pop
} def