GP7W63PT62NQZEPANQZ4FHMGILXUYSLHK43KAWIOXMDQMERXWORAC
3GQEXU7EQJ6DH4XCGN7VACI7Q2HWKNEVGESSWMC7RBUN5FFD2N3AC
UHXFAHPMQ3JBILCJJY3CTELFSBDYEZUS3AD44KHABDAZS4L6CCQAC
2VCC6DPGXLR6KYEW5NOLKPE6TXWHY5M6B74ZRZBU6IP3LZQDGCXQC
toRoman = T.pack . go . fromVolume
toRoman = go . fromVolume
go 0 = []
go 0 = T.empty
in roman ++ go (x - break)
in T.append roman $ go (x - break)
romanSymbols :: [(Int, String)]
romanSymbols :: [(Int, T.Text)]
findClosestRoman :: Int -> Maybe (Int, String)
findClosestRoman :: Int -> Maybe (Int, T.Text)