;;; -*- lexical-binding: t -*-

(require 'bad-snake-game)

(defun bad-snake ()
  (interactive)
  (let ((sg (snake-game)))
    (run sg)))
;; (bad-snake)

(provide 'bad)