main = do
    print $ intToBytes (256*256+2) 4
    print $ bytesToInt $ Vec.fromList [2,0,1,0]
    exitFailure
main = do
    print $ intToBytes (256*256+2) 4
    print $ bytesToInt $ Vec.fromList [2,0,1,0]
    exitFailure
main = do
    print $ intToBytes (256*256+2) 4
    print $ bytesToInt $ Vec.fromList [2,0,1,0]
    exitFailure