/build_ci {
    pop
    size 3 mul 8 div /rad exch def
    currentpoint
    newpath
    rad add exch rad add exch rad 0 360 arc
    stroke
} def