L-System in Mathematica

Question

Here is some Maple code for drawing an L-System:

  with(Fractals:-LSystem)
  cons := ["A" = "draw:1", "+" = "turn:-90", "B" = "turn:90"]
  state, rules := "A", ["A" = "AB+BA+B", "B" = "B+AAB"]
  newstate1 := Iterate(state, rules, 7)

  LSystemPlot(newstate1, cons)

How can I make the same graphic using Mathematica?

I tried the first few steps:

SubstitutionSystem[{"A" -> "AB+BA+B", "B" -> "B+AAB"}, "A", {3}]

{"AB+BA+BB+AAB+B+AABAB+BA+B+B+AAB"} 

Answer 1

str = First@
   SubstitutionSystem[{"A" -> "AB+BA+B", "B" -> "B+AAB"}, "A", {7}];

asc = <|"A" -> {1, 0}, "B" -> {0, Pi/2}, "+" -> {0, -Pi/2}|>;

Here {1,0} means go forward 1 step and turn 0 radians. The turtle graphics substitute in Mathematica is AnglePath.

Graphics[
 Line@AnglePath@Lookup[asc, Characters[str]]
]

---

Thanks to @Pillsy, a shorter and faster way is

StringCases[str, {"A" -> {1, 0}, "B" -> {0, Pi/2}, "+" -> {0, -Pi/2}}]