BusFactor1Inc

;;
;; scheme coin - a lispchain (aka blockchain) implementation
;;
;; Burton Samograd
;; burton.samograd@gmail.com
;; Copyright - 2017
;;
;; Interested in helping out with the code? Email me.
;;
;; Bitcoin: 1HzWXjoQjzdLBm1eKeuWFrZx96kiop5GGy

BusFactor1Inc

;;
;; scheme coin - a common lisp blockchain
;;
;; Burton Samograd
;; 2017

(load "~/quicklisp/setup.lisp")

(defconstant *coin-name* "Scheme Coin")

BusFactor1Inc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; nock.lisp - The Interpretation and Compilation of Nock Programs.
;;
;; Nock is the Maxwell's Equations of Software. It is a language that
;; powers the Urbit virtual machine; its specification can fit on a 
;; t-shirt[1].  
;;
;; In this set of Common Lisp functions below are 'tar', 
;; a Nock interpreter, 'dao', a Nock compiler and 'phi',
;; a Nock compiler driver.

BusFactor1Inc

;; A nock interpreter
(defun tar (a f)
  (labels ((fas (b a)
	     (declare (integer b))
	     (cond
               ((= b 1) a)
               ((= b 2) (car a))
               ((= b 3) (cdr a))
               ((evenp b) (car (fas (/ b 2) a)))
               ((oddp b) (cdr (fas (/ (1- (the integer b)) 2) a))))))

BusFactor1Inc

-- AppleScript Voice Control Shell, Heidi
--
-- BusFactor1 Inc. - 2017

set commands to {"help", "exit", "screensaver", "laugh", "tell me a joke"}

on hear(commands)
	try
		tell application "SpeechRecognitionServer" -- <callout id="code.osx-voice-automation.scpt.speechrecognizer"/>
			activate