--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/gcd.i	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,36 @@
+	PLEASE NOTE: This program computes the GCD of two numbers. It is
+		     the example used in the operational semantics article.
+
+Copyright (c) 2006 Claudio Calvelli, all rights reserved.
+
+CLC-INTERCAL is copyrighted software. However, permission to use, modify,
+and distribute it is granted provided that the conditions set out in the
+licence agreement are met. See files README and COPYING in the distribution.
+
+	PLEASE WRITE IN .1 + .2
+	DO COME FROM (3)
+(1)	DO .3 <- '¥.1¢.2'~'¥.1¢.2'~#1
+	DO READ OUT .1
+	PLEASE GIVE UP
+	PLEASE COME FROM .3
+	DO .3 <- #0
+	DO .4 <- #32768
+	DO COME FROM .6
+	DO .6 <- #0
+	DO .5 <- '¥!1~.4'¢!2~.4''
+(2)	PLEASE .5 <- .5¢#0
+	DO .4 <- .4~#65534
+(8)	DO .6 <- !4~.4~#1'¢#0¢#0
+	PLEASE COME FROM .7
+	DO .7 <- #0
+(3)	bit left as an exercise to the reader - subtracts .2 from .1 and
+	leaves the result in .1 without modifying .2; the last statement
+	executed must have label (three). Do not cheat by looking it up
+	DO COME FROM .5
+	PLEASE .5 <- #0
+(128)	DO .7 <- "!1~.4'~!1~.4'"¢#0¢#0¢#0
+	DO .3 <- .2
+	DO .2 <- .1
+	DO .1 <- .3
+	DO .3 <- #0
+(7)	PLEASE .7 <- #7