sample TVar in Renderer monady
change TVar Int to TVar (Seq (UUID,Cairo.Surface))