--- a/progs/app02.scala	Sat Oct 17 11:24:41 2015 +0100
+++ b/progs/app02.scala	Mon Oct 19 14:45:50 2015 +0100
@@ -1,7 +1,7 @@
 abstract class Val
 case object Empty extends Val
-case class Char(c: Char) extends Val
+case class Chr(c: Char) extends Val
 case class Seq(v1: Val, v2: Val) extends Val
 case class Left(v: Val) extends Val
 case class Right(v: Val) extends Val
-case class Stars(vs: List[Val]) extends Val
\ No newline at end of file
+case class Stars(vs: List[Val]) extends Val