--- a/lex_blex_Frankensteined.scala	Fri Jul 05 23:46:25 2019 +0100
+++ b/lex_blex_Frankensteined.scala	Sat Jul 06 19:48:20 2019 +0100
@@ -146,7 +146,7 @@
     case (ASEQ(bs, a1, a2), Sequ(v1, v2)) => bs ++ retrieve(a1, v1) ++ retrieve(a2, v2)
     case (ASTAR(bs, a), Stars(Nil)) => bs ++ List(Z) 
     case (ASTAR(bs, a), Stars(v::vs)) => bs ++ List(S) ++ retrieve(a, v) ++ retrieve(ASTAR(Nil, a), Stars(vs))
-  }
+  }//bug here last clause should not add list(S)
   //erase function: extracts the regx from Aregex
   def erase(r:ARexp): Rexp = r match{
     case AZERO => ZERO