htor

## schelp.ohm
SCHelp {
  Document = (Element|Text)+

  Element
    = Class
    | Title
    | Summary
    | Related
    | Redirect
    | Categories

## package.json
{
  "name": "portable-npm-scripts",
  "version": "0.0.2",
  "private": true,
  "dependencies": { ... },
  "devDependencies": {
    "babel-core": "^6.26.0",
    "babel-preset-env": "^1.6.1",
    "babelify": "^8.0.0",
    "browserify": "^14.5.0",

## lower.js
const { Transform } = require('stream')
const ts = Transform({ decodeStrings: false })
ts._write = (chunk, enc, next) =>  {
    ts.push(chunk.toUpperCase())
    next()
}

process.stdin.setEncoding('utf8')
process.stdin.pipe(ts).pipe(process.stdout)

## bpm-detect.html
<!DOCTYPE html>
<html>
<head>
    <meta charset="utf-8">
    <title></title>
    <script src="https://unpkg.com/bpm-detective@2.0.1/dist/bpm-detective.js" charset="utf-8"></script>
    <script>
    let context = new AudioContext();
    fetch("01 Xtal.mp3")
    .then(response => response.arrayBuffer())

## test
#!/usr/bin/env bash
#
# test: diff logs against reference compiler logs
# usage: test [parser|scanner] [all|file] [log|res]
#

source_files=( easter float-opers gcd heron medium micro mini next opers primes strings wrong )
mod_test=$1
ext=$3

## huff.scm
(define (grow-huffman-tree pairs)
  (define (make-tree leaf-set)
    (cond
      ((null? leaf-set) '())                          ; no element
      ((null? (cdr leaf-set)) (car leaf-set))         ; one element
      (else                                           ; two elements
       (let ((first (car leaf-set))
             (second (cadr leaf-set))
             (rest (cddr leaf-set)))
         (if (null? rest)

## lambda.rkt
(define rember
  (lambda (a lat)
    (cond
      ((null? lat) lat)
      ((eq? (car lat) a) (cdr lat))
      (else (cons (car lat) (rember a (cdr lat)))))))

(define (rember2 a lat)
    (cond
      ((null? lat) lat)

## harmonic.c
int main(t) {

   for(t=0;;t++)putchar(
       t*5&(t>>7)|t*3&(t*4>>10)
);}

## makaroni.c
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/* function aliases */
#define talk printf
#define die talk
#define space calloc

/* keywords */

## gist:4000306
# search and browse manpages interactively
function woman {
    err="usage: $FUNCNAME [object]"
    test $# -ne 1 && echo $err && return 1

    IFS=$'\n' manpgs=( $(apropos $1 | grep ^$1) )
    select line in ${manpgs[@]}; do
        n=${line%%) *}; n=${n#* (}
        man ${n} ${line%% *}
        return 0
	SCHelp {
	Document = (Element\|Text)+

	Element
	= Class
	\| Title
	\| Summary
	\| Related
	\| Redirect
	\| Categories
	{
	"name": "portable-npm-scripts",
	"version": "0.0.2",
	"private": true,
	"dependencies": { ... },
	"devDependencies": {
	"babel-core": "^6.26.0",
	"babel-preset-env": "^1.6.1",
	"babelify": "^8.0.0",
	"browserify": "^14.5.0",
	const { Transform } = require('stream')
	const ts = Transform({ decodeStrings: false })
	ts._write = (chunk, enc, next) => {
	ts.push(chunk.toUpperCase())
	next()
	}

	process.stdin.setEncoding('utf8')
	process.stdin.pipe(ts).pipe(process.stdout)
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="utf-8">
	<title></title>
	<script src="https://unpkg.com/bpm-detective@2.0.1/dist/bpm-detective.js" charset="utf-8"></script>
	<script>
	let context = new AudioContext();
	fetch("01 Xtal.mp3")
	.then(response => response.arrayBuffer())
	#!/usr/bin/env bash
	#
	# test: diff logs against reference compiler logs
	# usage: test [parser\|scanner] [all\|file] [log\|res]
	#

	source_files=( easter float-opers gcd heron medium micro mini next opers primes strings wrong )
	mod_test=$1
	ext=$3
	(define (grow-huffman-tree pairs)
	(define (make-tree leaf-set)
	(cond
	((null? leaf-set) '()) ; no element
	((null? (cdr leaf-set)) (car leaf-set)) ; one element
	(else ; two elements
	(let ((first (car leaf-set))
	(second (cadr leaf-set))
	(rest (cddr leaf-set)))
	(if (null? rest)
	(define rember
	(lambda (a lat)
	(cond
	((null? lat) lat)
	((eq? (car lat) a) (cdr lat))
	(else (cons (car lat) (rember a (cdr lat)))))))

	(define (rember2 a lat)
	(cond
	((null? lat) lat)
	int main(t) {

	for(t=0;;t++)putchar(
	t5&(t>>7)\|t3&(t*4>>10)
	);}
	#include <stdio.h>
	#include <stdlib.h>
	#include <string.h>

	/* function aliases */
	#define talk printf
	#define die talk
	#define space calloc

	/* keywords */
	# search and browse manpages interactively
	function woman {
	err="usage: $FUNCNAME [object]"
	test $# -ne 1 && echo $err && return 1

	IFS=$'\n' manpgs=( $(apropos $1 \| grep ^$1) )
	select line in ${manpgs[@]}; do
	n=${line%%) }; n=${n# (}
	man ${n} ${line%% *}
	return 0