module TestMessage where
import CAN
import Message
import Data.Word

{- This function will take a pair of (timeStamp, CANMessage) and produce a 
   string-}
formatMessage :: (Word, CanMessage) -> String
formatMessage (stamp, message) = show stamp ++ " " ++ show (mkMessage message)

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