--- a/progs/app04.scala	Sat Oct 17 11:24:41 2015 +0100
+++ b/progs/app04.scala	Mon Oct 19 14:45:50 2015 +0100
@@ -1,8 +1,8 @@
 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
-case class Rec(x: String, v: Val) extends Val
\ No newline at end of file
+case class Rec(x: String, v: Val) extends Val