sierpinski :: LSys Char
sierpinski = LSys {
    _alph = fromList "AB+-",
    _state = "A",
    _rule = sieRule,
    _display = sieDraw
}
sierpinski :: LSys Char
sierpinski = LSys {
    _alph = fromList "AB+-",
    _state = "A",
    _rule = sieRule,
    _display = sieDraw
}
sierpinski = LSys {
    _alph = fromList "AB+-",
    _state = "A",
    _rule = sieRule,
    _display = sieDraw
}