(defun remove-whitespace (start end)
  " Remove white space at the beginning of lines "
  (interactive "r")
  (save-excursion
    (replace-regexp "^\\s-+" "" nil start end)))