onButtonClick :: Canvas -> Int -> Int -> (Int,Int) -> IO ()
onButtonClick canv n _ _ = do
    seed <- newSeed
    renderRW canv seed n
onButtonClick :: Canvas -> Int -> Int -> (Int,Int) -> IO ()
onButtonClick canv n _ _ = do
    seed <- newSeed
    renderRW canv seed n
onButtonClick canv n _ _ = do
    seed <- newSeed
    renderRW canv seed n