UHXFAHPMQ3JBILCJJY3CTELFSBDYEZUS3AD44KHABDAZS4L6CCQAC
OQ24A5VRN3IFOFFO2TWLF6OOP4I5V2NSUURZXUWEFLURQP4GPP5AC
2VCC6DPGXLR6KYEW5NOLKPE6TXWHY5M6B74ZRZBU6IP3LZQDGCXQC
import Data.Maybe
import Data.Maybe (fromJust)
import qualified Data.Text as T
let (break, roman) = fromMaybe undefined (findClosestRoman x)
let (break, roman) = fromJust $ findClosestRoman x