diff --git a/gluturtle.cabal b/gluturtle.cabal
--- a/gluturtle.cabal
+++ b/gluturtle.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>= 1.6
 
 name:		gluturtle
-version:	0.0.11
+version:	0.0.12
 stability:	alpha
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>
diff --git a/src/Graphics/UI/GLUT/Turtle/Field.hs b/src/Graphics/UI/GLUT/Turtle/Field.hs
--- a/src/Graphics/UI/GLUT/Turtle/Field.hs
+++ b/src/Graphics/UI/GLUT/Turtle/Field.hs
@@ -59,7 +59,7 @@
 	createWindow, Vertex2(..), renderPrimitive, vertex, PrimitiveMode(..),
 	preservingMatrix, GLfloat, swapBuffers, ($=), displayCallback,
 	initialDisplayMode, initialWindowSize, Size(..),
-	DisplayMode(..), flush
+	DisplayMode(..), flush, currentWindow, Window
  )
 import qualified Graphics.UI.GLUT as G
 
@@ -92,6 +92,9 @@
 	fWidth :: Int,
 	fHeight :: Int,
 
+	fFieldWindow :: Window,
+	fConsoleWindow :: Window,
+
 	fLayers :: IORef Layers
  }
 
@@ -116,21 +119,24 @@
 
 	initialDisplayMode $= [RGBMode, DoubleBuffered]
 	initialWindowSize $= Size (fromIntegral w) (fromIntegral h)
-	_ <- createWindow name
+	wt <- createWindow name
+	wc <- createWindow "console"
+	currentWindow $= Just wc
 	displayCallback $= (sequence_ =<< readIORef actions)
 	G.addTimerCallback 10 (timerAction $ do
+		currentWindow $= Just wt
 		G.clearColor $= G.Color4 0 0 0 0
 		G.clear [G.ColorBuffer]
 		sequence_ . reverse =<< readIORef actions
 		join $ readIORef action
+		swapBuffers
+		currentWindow $= Just wc
+		G.clearColor $= G.Color4 0 0 0 0
+		G.clear [G.ColorBuffer]
 		G.lineWidth $= 1.0
 		ss1 <- readIORef str
 		ss2 <- readIORef str2
 		zipWithM_ (printString (-2.8)) [-1800, -1600 .. 0] (reverse ss1 ++ ss2)
-{-
-		printString (-2.5) (-1800) . concat =<< readIORef str
-		zipWithM_ (printString (-2.5)) [-1600, -1400 .. 0] =<< readIORef str2
--}
 		swapBuffers)
 	G.reshapeCallback $= Just (\size -> G.viewport $= (G.Position 0 0, size))
 	let f = Field{
@@ -142,7 +148,9 @@
 		fString2 = str2,
 		fWidth = w,
 		fHeight = h,
-		fInputtext = inputtext
+		fInputtext = inputtext,
+		fFieldWindow = wt,
+		fConsoleWindow = wc
 	 }
 	G.keyboardMouseCallback $= Just (keyboardProc f)
 	return f