       (comment-region start (point))
       )))
 
-(defun zomp-move-up ()
+(defun zomp-move-up (count)
   "Move cursor up one indentation level"
-  (interactive)
+  (interactive "p")
   ;; skip empty line(s)
   (while (save-excursion
            (beginning-of-line)

      (previous-line)
      (setq moved-lines (+ 1 moved-lines)))
    (when (> moved-lines 3)
      (push-mark oldpoint))))

(defun zomp-setup ()
  (setq comment-start "//")

  (let ((oldpoint (point))
        (moved-lines 0)
        (column (save-excursion (back-to-indentation) (current-column))))
    (previous-line)
    (while (or
            (>= (progn (back-to-indentation) (current-column)) column)
