strToRoman :: String -> RomanNum
strToRoman = read . surround "[" "]" . interpose ","
strToRoman :: String -> RomanNum
strToRoman = read . surround "[" "]" . interpose ","
strToRoman = read . surround "[" "]" . interpose ","