delete the first few chars of each line

[Zimmen Gnauh]

  To delete the first 10 chars of a line. Is there any simpler way
than the following:

(let beg (progn (beginning-of-line) (point))
        (delete-region beg 10))