add start to haskell l-system