module TestCAN where
import CAN

main :: IO ()
main = interact (unlines . map show . toCanMessage . map (toEnum . fromEnum))