Added koka programming language examples

Author: Undalevein

koka/clockhands.kk

@@ -0,0 +1,10 @@
+fun pad(n:int)
+  pad-left(show(n), 2, '0')
+
+fun main()
+  for(0,10) fn(i)
+    var t := (43200 * i + 21600) / 11
+    var h := t / 3600
+    var m := t / 60 % 60
+    var s := t % 60 
+    println(pad(if is-zero(h) then 12 else h) ++ ":" ++ pad(m) ++ ":" ++ pad(s))

koka/hello.kk

@@ -0,0 +1,2 @@
+fun main()
+  println("Hello, World!")

koka/test.ps1

@@ -0,0 +1,23 @@
+function Assert-MatchTests {
+    param (
+        [Parameter(Mandatory = $true, ValueFromPipeline)] $TestResult
+    )
+
+    if ($TestResult) {
+        Write-Error "Output does not match expected results."
+    }
+}
+
+$Error.clear()
+koka -v0 -e "$PSScriptRoot\clockhands.kk" |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
+    Assert-MatchTests &&
+koka -v0 -e "$PSScriptRoot\hello.kk" &&
+ForEach-Object 'foo'
+
+if ($Error -or !$?) { 
+    "*** KOKA TESTS FAILED ***" 
+}
+else { 
+    "KOKA TESTS PASSED" 
+}