showRotation q cw = do
  let m = [ [ (i,j) | j <- [0..5] ] | i <- [0..5] ]
      m' = map (map (rotate_ cw q) ) m
      c = if cw then "clockwise" else "counter-clockwise"
  putStrLn $ "Rotation of quadrant " ++ show q ++ " " ++ c 
  putStrLn $ showMatrix m m' 
showRotation q cw = do
  let m = [ [ (i,j) | j <- [0..5] ] | i <- [0..5] ]
      m' = map (map (rotate_ cw q) ) m
      c = if cw then "clockwise" else "counter-clockwise"
  putStrLn $ "Rotation of quadrant " ++ show q ++ " " ++ c 
  putStrLn $ showMatrix m m' 
showRotation q cw = do
  let m = [ [ (i,j) | j <- [0..5] ] | i <- [0..5] ]
      m' = map (map (rotate_ cw q) ) m
      c = if cw then "clockwise" else "counter-clockwise"
  putStrLn $ "Rotation of quadrant " ++ show q ++ " " ++ c 
  putStrLn $ showMatrix m m' 