(define (indent-pixels p . contents) (table 'border "0" (tbody (tr (td 'width (as-string p) "") (td 'width "*" contents)))))