readHexa xyz =
  let hexa = map digitToInt xyz
  in case hexa of
    (xh:xl:yh:yl:zh:zl:[]) -> ((xh*16 + xl), (yh*16 + yl), (zh*16 + zl))
    (x:y:z:[]) -> ((x*17), (y*17), (z*17))
readHexa xyz =
  let hexa = map digitToInt xyz
  in case hexa of
    (xh:xl:yh:yl:zh:zl:[]) -> ((xh*16 + xl), (yh*16 + yl), (zh*16 + zl))
    (x:y:z:[]) -> ((x*17), (y*17), (z*17))
readHexa xyz =
  let hexa = map digitToInt xyz
  in case hexa of
    (xh:xl:yh:yl:zh:zl:[]) -> ((xh*16 + xl), (yh*16 + yl), (zh*16 + zl))
    (x:y:z:[]) -> ((x*17), (y*17), (z*17))