ujihisa

import qualified Control.Monad.State as S
import qualified Data.Map as M
import Control.Monad.Error ()

data AST = Node [AST] | Leaf Value
instance Show AST where
  show (Node xs) = "(" ++ unwords (map show xs) ++ ")"
  show (Leaf v) = show v

data Value = IntVal Int | Define String AST

uasi

require 'formula'

class Gauche < Formula

  url 'http://downloads.sourceforge.net/gauche/Gauche/Gauche-0.9.1.tgz'
  homepage 'http://practical-scheme.net/gauche/'
  md5 '6134e9c16aef2bc9fd3fa7e8fbebdd10'

  def install
    system "./configure",

sugyan

"^                                 "
=~                                 (
("(").("~"^"."^"^"^(""=="")."").("^"
^"="^(""=="").""^")").("^"^".").("="
^"~"^(""=="")."").("("^(""=="^").""^
"."^"^").("("^(""=="").""^"^"^")").(
("                  ^(             "
                    ==             "
                    ")             .
                    ""             ^