modify lsystem example