<?xml version="1.0"?>
<?xml-stylesheet type="text/css" href="http://dynamo.iro.umontreal.ca/wiki/skins/common/feed.css?270"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="en">
		<id>http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;feed=atom&amp;action=history</id>
		<title>Programming language shootout: fannkuch - Revision history</title>
		<link rel="self" type="application/atom+xml" href="http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;feed=atom&amp;action=history"/>
		<link rel="alternate" type="text/html" href="http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;action=history"/>
		<updated>2013-06-19T16:28:03Z</updated>
		<subtitle>Revision history for this page on the wiki</subtitle>
		<generator>MediaWiki 1.16.4</generator>

	<entry>
		<id>http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;diff=243&amp;oldid=prev</id>
		<title>Bjlucier: /* Running */</title>
		<link rel="alternate" type="text/html" href="http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;diff=243&amp;oldid=prev"/>
				<updated>2008-06-30T00:21:44Z</updated>
		
		<summary type="html">&lt;p&gt;&lt;span class=&quot;autocomment&quot;&gt;Running&lt;/span&gt;&lt;/p&gt;
&lt;table style=&quot;background-color: white; color:black;&quot;&gt;
			&lt;col class='diff-marker' /&gt;
			&lt;col class='diff-content' /&gt;
			&lt;col class='diff-marker' /&gt;
			&lt;col class='diff-content' /&gt;
		&lt;tr valign='top'&gt;
		&lt;td colspan='2' style=&quot;background-color: white; color:black;&quot;&gt;← Older revision&lt;/td&gt;
		&lt;td colspan='2' style=&quot;background-color: white; color:black;&quot;&gt;Revision as of 00:21, 30 June 2008&lt;/td&gt;
		&lt;/tr&gt;&lt;tr&gt;&lt;td colspan=&quot;2&quot; class=&quot;diff-lineno&quot;&gt;Line 111:&lt;/td&gt;
&lt;td colspan=&quot;2&quot; class=&quot;diff-lineno&quot;&gt;Line 111:&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;==Running==&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;==Running==&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;&amp;lt;pre&amp;gt;&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;&amp;lt;pre&amp;gt;&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt;-&lt;/td&gt;&lt;td style=&quot;background: #ffa; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;gsi fannkuch &lt;del class=&quot;diffchange diffchange-inline&quot;&gt;n&lt;/del&gt;&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt;+&lt;/td&gt;&lt;td style=&quot;background: #cfc; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;gsi fannkuch &lt;ins class=&quot;diffchange diffchange-inline&quot;&gt;11&lt;/ins&gt;&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;&amp;lt;/pre&amp;gt;&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;&amp;lt;/pre&amp;gt;&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;/table&gt;</summary>
		<author><name>Bjlucier</name></author>	</entry>

	<entry>
		<id>http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;diff=80&amp;oldid=prev</id>
		<title>Bjlucier: re-enable interrupts (bad programming style)</title>
		<link rel="alternate" type="text/html" href="http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;diff=80&amp;oldid=prev"/>
				<updated>2008-02-26T13:59:30Z</updated>
		
		<summary type="html">&lt;p&gt;re-enable interrupts (bad programming style)&lt;/p&gt;
&lt;table style=&quot;background-color: white; color:black;&quot;&gt;
			&lt;col class='diff-marker' /&gt;
			&lt;col class='diff-content' /&gt;
			&lt;col class='diff-marker' /&gt;
			&lt;col class='diff-content' /&gt;
		&lt;tr valign='top'&gt;
		&lt;td colspan='2' style=&quot;background-color: white; color:black;&quot;&gt;← Older revision&lt;/td&gt;
		&lt;td colspan='2' style=&quot;background-color: white; color:black;&quot;&gt;Revision as of 13:59, 26 February 2008&lt;/td&gt;
		&lt;/tr&gt;&lt;tr&gt;&lt;td colspan=&quot;2&quot; class=&quot;diff-lineno&quot;&gt;Line 10:&lt;/td&gt;
&lt;td colspan=&quot;2&quot; class=&quot;diff-lineno&quot;&gt;Line 10:&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;;; derived by Michael D. Adams from the O'Caml variant, by Christophe Papazian&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;;; derived by Michael D. Adams from the O'Caml variant, by Christophe Papazian&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt;-&lt;/td&gt;&lt;td style=&quot;background: #ffa; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;(declare (standard-bindings)(extended-bindings)(block)(not safe&lt;del class=&quot;diffchange diffchange-inline&quot;&gt;)(not interrupts-enabled&lt;/del&gt;))&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt;+&lt;/td&gt;&lt;td style=&quot;background: #cfc; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;(declare (standard-bindings)(extended-bindings)(block)(not safe))&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;(define (write-permutation perm)&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;(define (write-permutation perm)&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;/table&gt;</summary>
		<author><name>Bjlucier</name></author>	</entry>

	<entry>
		<id>http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;diff=63&amp;oldid=prev</id>
		<title>Bjlucier: correct link to alioth</title>
		<link rel="alternate" type="text/html" href="http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;diff=63&amp;oldid=prev"/>
				<updated>2008-02-22T21:55:42Z</updated>
		
		<summary type="html">&lt;p&gt;correct link to alioth&lt;/p&gt;
&lt;table style=&quot;background-color: white; color:black;&quot;&gt;
			&lt;col class='diff-marker' /&gt;
			&lt;col class='diff-content' /&gt;
			&lt;col class='diff-marker' /&gt;
			&lt;col class='diff-content' /&gt;
		&lt;tr valign='top'&gt;
		&lt;td colspan='2' style=&quot;background-color: white; color:black;&quot;&gt;← Older revision&lt;/td&gt;
		&lt;td colspan='2' style=&quot;background-color: white; color:black;&quot;&gt;Revision as of 21:55, 22 February 2008&lt;/td&gt;
		&lt;/tr&gt;&lt;tr&gt;&lt;td colspan=&quot;2&quot; class=&quot;diff-lineno&quot;&gt;Line 1:&lt;/td&gt;
&lt;td colspan=&quot;2&quot; class=&quot;diff-lineno&quot;&gt;Line 1:&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt;-&lt;/td&gt;&lt;td style=&quot;background: #ffa; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;This is a Gambit implementation of the [http://shootout.alioth.debian.org/&lt;del class=&quot;diffchange diffchange-inline&quot;&gt;gp4&lt;/del&gt;/benchmark.php?test=fannkuch&amp;amp;lang=all fannkuch] benchmark of the [[Programming language shootout|Computer Language Benchmarks Game]].&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt;+&lt;/td&gt;&lt;td style=&quot;background: #cfc; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;This is a Gambit implementation of the [http://shootout.alioth.debian.org/&lt;ins class=&quot;diffchange diffchange-inline&quot;&gt;gp4sandbox&lt;/ins&gt;/benchmark.php?test=fannkuch&amp;amp;lang=all fannkuch] benchmark of the [[Programming language shootout|Computer Language Benchmarks Game]].&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;==The program==&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;==The program==&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;&amp;lt;pre&amp;gt;&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;&amp;lt;pre&amp;gt;&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;/table&gt;</summary>
		<author><name>Bjlucier</name></author>	</entry>

	<entry>
		<id>http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;diff=46&amp;oldid=prev</id>
		<title>Bjlucier at 17:31, 22 February 2008</title>
		<link rel="alternate" type="text/html" href="http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;diff=46&amp;oldid=prev"/>
				<updated>2008-02-22T17:31:02Z</updated>
		
		<summary type="html">&lt;p&gt;&lt;/p&gt;
&lt;table style=&quot;background-color: white; color:black;&quot;&gt;
			&lt;col class='diff-marker' /&gt;
			&lt;col class='diff-content' /&gt;
			&lt;col class='diff-marker' /&gt;
			&lt;col class='diff-content' /&gt;
		&lt;tr valign='top'&gt;
		&lt;td colspan='2' style=&quot;background-color: white; color:black;&quot;&gt;← Older revision&lt;/td&gt;
		&lt;td colspan='2' style=&quot;background-color: white; color:black;&quot;&gt;Revision as of 17:31, 22 February 2008&lt;/td&gt;
		&lt;/tr&gt;&lt;tr&gt;&lt;td colspan=&quot;2&quot; class=&quot;diff-lineno&quot;&gt;Line 1:&lt;/td&gt;
&lt;td colspan=&quot;2&quot; class=&quot;diff-lineno&quot;&gt;Line 1:&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt;-&lt;/td&gt;&lt;td style=&quot;background: #ffa; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;This is &lt;del class=&quot;diffchange diffchange-inline&quot;&gt;an &lt;/del&gt;implementation of the [http://shootout.alioth.debian.org/gp4/benchmark.php?test=fannkuch&amp;amp;lang=all fannkuch] benchmark of the Computer Language Benchmarks Game.&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt;+&lt;/td&gt;&lt;td style=&quot;background: #cfc; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;This is &lt;ins class=&quot;diffchange diffchange-inline&quot;&gt;a Gambit &lt;/ins&gt;implementation of the [http://shootout.alioth.debian.org/gp4/benchmark.php?test=fannkuch&amp;amp;lang=all fannkuch] benchmark of the &lt;ins class=&quot;diffchange diffchange-inline&quot;&gt;[[Programming language shootout|&lt;/ins&gt;Computer Language Benchmarks Game&lt;ins class=&quot;diffchange diffchange-inline&quot;&gt;]]&lt;/ins&gt;.&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;==The program==&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;==The program==&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;&amp;lt;pre&amp;gt;&lt;/div&gt;&lt;/td&gt;&lt;td class='diff-marker'&gt; &lt;/td&gt;&lt;td style=&quot;background: #eee; color:black; font-size: smaller;&quot;&gt;&lt;div&gt;&amp;lt;pre&amp;gt;&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;/table&gt;</summary>
		<author><name>Bjlucier</name></author>	</entry>

	<entry>
		<id>http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;diff=45&amp;oldid=prev</id>
		<title>Bjlucier: add program</title>
		<link rel="alternate" type="text/html" href="http://dynamo.iro.umontreal.ca/wiki/index.php?title=Programming_language_shootout:_fannkuch&amp;diff=45&amp;oldid=prev"/>
				<updated>2008-02-22T17:29:01Z</updated>
		
		<summary type="html">&lt;p&gt;add program&lt;/p&gt;
&lt;p&gt;&lt;b&gt;New page&lt;/b&gt;&lt;/p&gt;&lt;div&gt;This is an implementation of the [http://shootout.alioth.debian.org/gp4/benchmark.php?test=fannkuch&amp;amp;lang=all fannkuch] benchmark of the Computer Language Benchmarks Game.&lt;br /&gt;
==The program==&lt;br /&gt;
&amp;lt;pre&amp;gt;&lt;br /&gt;
#!gsi-script&lt;br /&gt;
&lt;br /&gt;
;; The Computer Language Benchmarks Game&lt;br /&gt;
;; http://shootout.alioth.debian.org/&lt;br /&gt;
&lt;br /&gt;
;; Derived by Bradley Lucier from the Ikarus variant&lt;br /&gt;
;; derived by Michael D. Adams from the O'Caml variant, by Christophe Papazian&lt;br /&gt;
&lt;br /&gt;
(declare (standard-bindings)(extended-bindings)(block)(not safe)(not interrupts-enabled))&lt;br /&gt;
&lt;br /&gt;
(define (write-permutation perm)&lt;br /&gt;
  (for-each write (vector-&amp;gt;list perm))&lt;br /&gt;
  (newline))&lt;br /&gt;
&lt;br /&gt;
;; Find first value where r[i] != i&lt;br /&gt;
;; and increment (mod j+2) all values up to that (i.e. set them to j+1)&lt;br /&gt;
;; returning i+2&lt;br /&gt;
(define (choose-next r)&lt;br /&gt;
  (let loop ((i 0))&lt;br /&gt;
    (if (eq? (vector-ref r i) i)&lt;br /&gt;
        (loop (fx+ 1 i))&lt;br /&gt;
        (let loop ((j 0))&lt;br /&gt;
          (if (eq? j i)&lt;br /&gt;
              (begin (vector-set! r j (fxremainder (fx+ 1 (vector-ref r j)) (fx+ j 2)))&lt;br /&gt;
                     (fx+ j 2))&lt;br /&gt;
              (begin (vector-set! r j (fx+ j 1))&lt;br /&gt;
                     (loop (fx+ j 1))))))))&lt;br /&gt;
&lt;br /&gt;
;; Count number of &amp;quot;pancake flips&amp;quot; it takes to get p[0]=1&lt;br /&gt;
;; Does not side-effect p, uses s as a temporary&lt;br /&gt;
;; &amp;quot;Pancake flip&amp;quot; = Reverse first p[0]-1 elements&lt;br /&gt;
(define (count-flips n p s)&lt;br /&gt;
  ;; Check if all p[i] != i+1&lt;br /&gt;
  (define (check i)&lt;br /&gt;
    (or (eq? i n)&lt;br /&gt;
        (and (not (eq? (vector-ref p i) (fx+ i 1)))&lt;br /&gt;
             (check (fx+ i 1)))))&lt;br /&gt;
  ;; If all p[i] != i+1&lt;br /&gt;
  (if (check 0)&lt;br /&gt;
      (begin&lt;br /&gt;
        ;; set all s[i] = p[i]&lt;br /&gt;
        (do ((i 0 (fx+ i 1)))&lt;br /&gt;
            ((eq? i n))&lt;br /&gt;
          (vector-set! s i (vector-ref p i)))&lt;br /&gt;
        ;; keep reversing the first s[0]-1 values of s until s[0] = 1&lt;br /&gt;
        ;; and return number of flippings&lt;br /&gt;
        (do ((flips 0 (fx+ flips 1))&lt;br /&gt;
             (s0 (fx- (vector-ref s 0) 1)&lt;br /&gt;
                 (fx- (vector-ref s 0) 1)))&lt;br /&gt;
            ((eq? s0 0)&lt;br /&gt;
             flips)&lt;br /&gt;
          ;; reverse the first s[0]-1 values of s&lt;br /&gt;
          (do ((i 0  (fx+ i 1))&lt;br /&gt;
               (j s0 (fx- j 1)))&lt;br /&gt;
              ((fx&amp;gt;= i j))&lt;br /&gt;
            (let ((tmp (vector-ref s i)))&lt;br /&gt;
              (vector-set! s i (vector-ref s j))&lt;br /&gt;
              (vector-set! s j tmp)))))&lt;br /&gt;
      0))&lt;br /&gt;
&lt;br /&gt;
;; Build a new permutation by &amp;quot;braiding&amp;quot;:&lt;br /&gt;
;;  For every i in [1..n-1]:&lt;br /&gt;
;;    Shift each p[j&amp;lt;i] down by one&lt;br /&gt;
;;    and put p[0] at p[i]&lt;br /&gt;
(define (braid n p)&lt;br /&gt;
  ;; For every i in [1..n-1]&lt;br /&gt;
  (do ((i 1 (fx+ i 1)))&lt;br /&gt;
      ((eq? i n))&lt;br /&gt;
    ;; Shift each p[j] down by one&lt;br /&gt;
    ;; and put p[0] at p[i]&lt;br /&gt;
    (let ((t (vector-ref p 0)))&lt;br /&gt;
      (do ((j 0 (fx+ j 1)))&lt;br /&gt;
          ((eq? j i))&lt;br /&gt;
        (vector-set! p j (vector-ref p (fx+ j 1))))&lt;br /&gt;
      (vector-set! p i t))))&lt;br /&gt;
&lt;br /&gt;
(define (fannkuch n r p s m z)&lt;br /&gt;
  (let ((i (choose-next r)))&lt;br /&gt;
    (if (fx&amp;gt; i n)&lt;br /&gt;
        m&lt;br /&gt;
        (begin&lt;br /&gt;
          (if (fx&amp;gt; z 0) (write-permutation p))&lt;br /&gt;
          (braid i p)&lt;br /&gt;
          (fannkuch n r p s (max m (count-flips n p s)) (fx- z 1))))))&lt;br /&gt;
&lt;br /&gt;
(define (main . args)&lt;br /&gt;
  (let ((n (string-&amp;gt;number (car args))))&lt;br /&gt;
    (let ((r (make-vector n))&lt;br /&gt;
          (p (make-vector n))&lt;br /&gt;
          (s (make-vector n 0)))&lt;br /&gt;
&lt;br /&gt;
      ;; Init r and p to [1,...,n]&lt;br /&gt;
      (do ((i 0 (fx+ 1 i)))&lt;br /&gt;
          ((eq? i n))&lt;br /&gt;
        (vector-set! r i (fx+ i 1))&lt;br /&gt;
        (vector-set! p i (fx+ i 1)))&lt;br /&gt;
&lt;br /&gt;
      ;; No need to init s; it is only used as a temporary&lt;br /&gt;
&lt;br /&gt;
      (let ((x (fannkuch n r p s 0 30)))&lt;br /&gt;
        (display &amp;quot;Pfannkuchen(&amp;quot;)(display n)(display &amp;quot;) = &amp;quot;)&lt;br /&gt;
        (display x)(newline)))))&lt;br /&gt;
&amp;lt;/pre&amp;gt;&lt;br /&gt;
==Compiling==&lt;br /&gt;
&amp;lt;pre&amp;gt;&lt;br /&gt;
gsc fannkuch&lt;br /&gt;
&amp;lt;/pre&amp;gt;&lt;br /&gt;
==Running==&lt;br /&gt;
&amp;lt;pre&amp;gt;&lt;br /&gt;
gsi fannkuch n&lt;br /&gt;
&amp;lt;/pre&amp;gt;&lt;/div&gt;</summary>
		<author><name>Bjlucier</name></author>	</entry>

	</feed>