(mac prrow args
  (w/uniq g
    `(tr ,@(map (fn (a) 
                  `(let ,g ,a
                     (if (number ,g)
                         (tdright (pr ,g))
                         (td (pr ,g)))))
                 args))))