Byron Ellacott codebje

## search_deep.hs
module Search_Deep where

import Data.Bits

data Fun = And | Add | Xor | Or  | Sub | Bus
data Shape = F Shape Shape | Var | Tok
data Expr a = C Fun (Expr a) (Expr a) | V a | T
data U = U
instance Show U where
    showsPrec _ U = ("?" ++)

## index.html
<!DOCTYPE html>
<meta charset="utf-8">
<body>
<script src="http://d3js.org/d3.v3.min.js"></script>
<script src="http://d3js.org/topojson.v1.min.js"></script>
<script>

var width = 960,
    height = 500;
	module Search_Deep where

	import Data.Bits

	data Fun = And \| Add \| Xor \| Or \| Sub \| Bus
	data Shape = F Shape Shape \| Var \| Tok
	data Expr a = C Fun (Expr a) (Expr a) \| V a \| T
	data U = U
	instance Show U where
	showsPrec _ U = ("?" ++)
	<!DOCTYPE html>
	<meta charset="utf-8">
	<body>
	<script src="http://d3js.org/d3.v3.min.js"></script>
	<script src="http://d3js.org/topojson.v1.min.js"></script>
	<script>

	var width = 960,
	height = 500;