Add text version of the program to the 'Example code' section

Author: ThijsRay

contents/euclidean_algorithm/euclidean_algorithm.md

@@ -178,11 +178,17 @@ and modulo method:
 {% sample lang="st" %}
 [import, lang="smalltalk"](code/smalltalk/euclid.st)
 {% sample lang="piet" %}
+A text version of the program is provided for both versions.
+#### Subtraction
 > ![](code/piet/subtract/euclidian_algorithm_subtract_large.png) ![](code/piet/subtract/euclidian_algorithm_subtract.png)
 
+[import:23-107](code/piet/euclidian_algorithm.piet)
+
+#### Modulo
 > ![](code/piet/mod/euclidian_algorithm_mod_large.png) ![](code/piet/mod/euclidian_algorithm_mod.png)
-{% endmethod %}
 
+[import:126-146](code/piet/euclidian_algorithm.piet)
+{% endmethod %}
 
 <script>
 MathJax.Hub.Queue(["Typeset",MathJax.Hub]);