main = do
    Just canv <- getCanvasById "field"
    Just button <- elemById "button"
    _ <- onEvent button OnClick (onButtonClick canv steps)
    seed <- newSeed
    renderRW canv seed steps
main = do
    Just canv <- getCanvasById "field"
    Just button <- elemById "button"
    _ <- onEvent button OnClick (onButtonClick canv steps)
    seed <- newSeed
    renderRW canv seed steps
main = do
    Just canv <- getCanvasById "field"
    Just button <- elemById "button"
    _ <- onEvent button OnClick (onButtonClick canv steps)
    seed <- newSeed
    renderRW canv seed steps