(defun noobie-msg (key)
  (cond ((equal key "up") (let ((cmd "p"))))
		((equal key "dn") (let ((cmd "n"))))
		((equal key "lf") (let ((cmd "b"))))
		((equal key "rt") (let ((cmd "f"))))
  )
  (message cmd)
)