>>746
これ
  preservingMatrix :: IO a -> IO a
渡したIO aの前後でpopとpushを自動的にやってくれる
  preservingMatrix $ do
    loadIdentity
    ....
みたいに使う