git @ Cat's Eye Technologies Iphigeneia / master eg / cat.iphi
master

Tree @master (Download .tar.gz)

cat.iphi @masterraw · history · blame

1
2
3
4
5
6
7
(* Echo input to output until the first space *)
var x in
  while x /= 32 do
    begin
      x := input c in c;
      print x
    end