1: ;;; -*- coding: euc-jp -*-
    2: ;;; This is just a joke.
    3: ;;; You need to compile Gauche in EUC-JP code.
    4: ;;;
    5: 
    6: ;; $Id: japanize-euc.scm,v 1.2 2007/03/02 07:20:41 shirok Exp $
    7: 
    8: (define-syntax ??  (syntax-rules () ((_ args body ...) (lambda args body ...))))
    9: 
   10: (define-syntax ???  (syntax-rules (??
   11:     ((_ (f . args) body ...)
   12:      (define (f . args) body ...))
   13:     ((_ var val)
   14:      (define var val))
   15:     ((_ var ??val)
   16:      (define var val))))
   17: 
   18: (define-syntax ?⤷
   19:   (syntax-rules (?ʤ? ?Ǥʤ???)
   20:     ((_ test ?ʤ? then)
   21:      (if test then))
   22:     ((_ test ?ʤ? then ?Ǥʤ??? else)
   23:      (if test then else))
   24:     ((_ test ?Ǥʤ??? else)
   25:      (unless test else))
   26:     ((_ test then)
   27:      (if test then))
   28:     ((_ test then else)
   29:      (if test then else))))
   30: 
   31: (define-syntax ??
   32:   (syntax-rules (??
   33:     ((_ var ??val)
   34:      (set! var val))
   35:     ((_ var val)
   36:      (set! var val))))
   37: 
   38: (define-syntax ?ɽ???  (syntax-rules (??
   39:     ((_ ((var ??val) ...) body ...)
   40:      (let ((var val) ...) body ...))
   41:     ((_ ((var val) ...) body ...)
   42:      (let ((var val) ...) body ...))
   43:     ))
   44: 
   45: (define-syntax ?缡?ɽ???  (syntax-rules (??
   46:     ((_ ((var ??val) ...) body ...)
   47:      (let* ((var val) ...) body ...))
   48:     ((_ ((var val) ...) body ...)
   49:      (let* ((var val) ...) body ...))
   50:     ))
   51:     
   52: (define-syntax ?Ƶ??ɽ???  (syntax-rules (??
   53:     ((_ ((var ??val) ...) body ...)
   54:      (letrec ((var val) ...) body ...))
   55:     ((_ ((var val) ...) body ...)
   56:      (letrec ((var val) ...) body ...))
   57:     ))
   58:     
   59: 
   60: (define ??)
   61: (define ??=)
   62: (define ??)
   63: (define ??)
   64: (define ??=)
   65: 
   66: (define ??+)
   67: (define ??-)
   68: (define ??*)
   69: (define ??)
   70: 
   71: (define ʸ???ꥹ??string->list)
   72: (define ?եꥹ??reverse)
   73: 
   74: ;;-----------------------------------------------
   75: ;; examples
   76: 
   77: (????????   (??(n) (?⤷ (?? 2) ?ʤ? n ?Ǥʤ??? (??n (??????n 1))))))
   78: 
   79: (??????? ??   (??(ʸ??     (?缡?ɽ???((ʸ??????(ʸ???ꥹ??ʸ??
   80:                    (?????????(?եꥹ??ʸ????))
   81:        (equal? ???????ʸ????)))
   82: