(defun vt (&optional vt)
  "If VT \(and VT isn't 1\), go to VT.
Else, ask what VT to go to."
  (interactive "p")
  (if (or (not vt)
          (= vt 1))
      (setq vt (read-from-minibuffer " Switch to VT: ")))
  (shell-command (format "chvt %s" vt)) )

(defun dump (file)
  (interactive "s Description: ")
  (message nil)
  (shell-command (format "fbgrab ~/%s.png" file)))