-iToBase62 :: Int -> SDoc
-
-iToBase62 n@(I# n#)
- = ASSERT(n >= 0)
- if n# <# 62# then
- case (indexCharOffAddr# chars62# n#) of { c ->
- char (C# c) }
- else
- case (quotRem n 62) of { (q, I# r#) ->
- case (indexCharOffAddr# chars62# r#) of { c ->
- (<>) (iToBase62 q) (char (C# c)) }}