bytesToMac :: [Int] -> Mac
bytesToMac = concat . intersperse ":" . map stringify
    where stringify x = printf "%02x" x
bytesToMac :: [Int] -> Mac
bytesToMac = concat . intersperse ":" . map stringify
    where stringify x = printf "%02x" x
bytesToMac = concat . intersperse ":" . map stringify
    where stringify x = printf "%02x" x