center :: Int -> (Int,Int)
center q
  | q == 0 = (1,1)
  | q == 1 = (1,4)
  | q == 2 = (4,1)
  | q == 3 = (4,4)
  | otherwise = error "bad quadrant"
center :: Int -> (Int,Int)
center q
  | q == 0 = (1,1)
  | q == 1 = (1,4)
  | q == 2 = (4,1)
  | q == 3 = (4,4)
  | otherwise = error "bad quadrant"
center q
  | q == 0 = (1,1)
  | q == 1 = (1,4)
  | q == 2 = (4,1)
  | q == 3 = (4,4)
  | otherwise = error "bad quadrant"