NalaGinrut

diff --git a/test-suite/tests/web-client.test b/test-suite/tests/web-client.test
index 3133b73..6038398 100644
--- a/test-suite/tests/web-client.test
+++ b/test-suite/tests/web-client.test
@@ -299,13 +299,28 @@ Content-Language: en
 ")
 
 ;; Unfortunately, POST to http://www.gnu.org/software/guile/ succeeds!
+(define post-request-headers-null:www.apache.org/
+  "POST / HTTP/1.1

NalaGinrut

(use-modules (srfi srfi-1) (ice-9 control))
(define (either . args) (shift k (for-each k args)))
(define (sq x) (* x x))
(define (choice from to) 
  (reset (let ((ll (iota to from))) 
           (let ((x (apply either ll))(y (apply either ll))(z (apply either ll))) 
             (if (= (sq z) (+ (sq x) (sq y))) 
                 (format #t "~a^2 + ~a^2 = ~a^2~%" x y z))))))

NalaGinrut

(for-each (lambda (s) 
  (let ((p (module-ref (current-module) s))) 
   (if (procedure? p) 
       (format #t "[~a]~%~@[~a~%~]" p (procedure-documentation p))))) 
 (apropos-internal ".*"))

NalaGinrut

#!/bin/bash
while read -e input
do
   for i in $input
   do
      play -q -n synth 3 pluck %$(expr index abbccddeeffgg $i - 1) &
      sleep 0.5
   done
done

NalaGinrut

cat test.c
 
------------------------------------------------------------
int main(int argc, char * argv[]) {
	__asm__ ("call __foo_bar_%P0" : : "i"(42));
	return 0;
}
------------------------------------------------------------
gcc -S test.c
cat test.s     

NalaGinrut

(define (yy-print fmt . args)
  ;; if Guile
  (apply format #t fmt args)
  ;; if Racket
  ;;(apply printf fmt args)
  )

(define (inc x)
  ;; if Guile
  (1+ x)

NalaGinrut

(define-syntax sets!
  (syntax-rules ()
    ((_ (var) (val))
     (set! var val))
    ((_ (var vars* ...) (val vals* ...))
     (let ((var0 val))
       (sets! (vars* ...) (vals* ...))
       (set! var var0)))))

NalaGinrut

#!/usr/bin/python

from PIL import Image, ImageDraw
import time, os, sys

ori, des = sys.argv[1:]

im = Image.open(ori)
draw = ImageDraw.Draw(im)
textPadding = 5

NalaGinrut

(use-modules (ice-9 rdelim) (rnrs))

(define (k f init val pred)
(if (pred val)
    init
    (call-with-values (lambda () (f init val))
      (lambda (lst rst) (k f lst rst pred)))))

(define (lexer str delimiters)
 (define (-> c)

NalaGinrut

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console