safx

score' :: Int -> Char -> Int
score' _ '-' = 0
score' b '/' = 10 - b
score' _ 'X' = 10
score' _ '1' = 1
score' _ '2' = 2
score' _ '3' = 3
score' _ '4' = 4
score' _ '5' = 5
score' _ '6' = 6

safx

#_ = require \prelude-ls

class Frame
    (pin, prev)->
        @cell = pin
        @prev = prev
        @next = null
        prev.next = this if prev?
  
    #frameScore: -> _.fold (+), 0, @cell

safx

(defun dither-xpm (color1 color2)
  "Return an XPM dither string representing."
  (format "/* XPM */
static char * dither[] = {
\"12 18 2 1\",
\".	c %s\",
\" 	c %s\",
\"....... . . \",
\".. . . .    \",
\"..... . . . \",