stringCircle :: String -> String
stringCircle str =
    unlines [[ maybe ' ' id $ lookup (x,y) ps | x <- [-2*ri..2*ri]] | y <- [-ri..ri]]
    where
      ri  = length str `div` 3
      ps  = zipWith f [0..] str
      f i c = ((round $ 2 * r * cos t, round $ r * sin t), c)
          where
            t = i / fromIntegral (length str) * 2 * pi - pi / 2
            r = fromIntegral ri :: Double
 
main :: IO ()
main = putStrLn $ stringCircle "子丑寅卯辰巳午未申酉戌亥"
 

c3RyaW5nQ2lyY2xlIDo6IFN0cmluZyAtPiBTdHJpbmcKc3RyaW5nQ2lyY2xlIHN0ciA9CiAgICB1bmxpbmVzIFtbIG1heWJlICcgJyBpZCAkIGxvb2t1cCAoeCx5KSBwcyB8IHggPC0gWy0yKnJpLi4yKnJpXV0gfCB5IDwtIFstcmkuLnJpXV0KICAgIHdoZXJlCiAgICAgIHJpICA9IGxlbmd0aCBzdHIgYGRpdmAgMwogICAgICBwcyAgPSB6aXBXaXRoIGYgWzAuLl0gc3RyCiAgICAgIGYgaSBjID0gKChyb3VuZCAkIDIgKiByICogY29zIHQsIHJvdW5kICQgciAqIHNpbiB0KSwgYykKICAgICAgICAgIHdoZXJlCiAgICAgICAgICAgIHQgPSBpIC8gZnJvbUludGVncmFsIChsZW5ndGggc3RyKSAqIDIgKiBwaSAtIHBpIC8gMgogICAgICAgICAgICByID0gZnJvbUludGVncmFsIHJpIDo6IERvdWJsZQoKbWFpbiA6OiBJTyAoKQptYWluID0gcHV0U3RyTG4gJCBzdHJpbmdDaXJjbGUgIuWtkOS4keWvheWNr+i+sOW3s+WNiOacqueUs+mFieaIjOS6pSIK