ITT we re-do monolith.sf.net

yes, the monolith kid is retarded and his ADD-induced idea of ripping off onetime pads could never work because that's not how the law works, but that's not the point here. Here's my implementation

import qualified Data.ByteString.Lazy as B
import Data.Bits
import System.Environment

main = do
    (file1:file2:file3:_) <- getArgs
    c1 <- B.readFile file1
    c2 <- B.readFile file2
    B.writeFile file3 (B.pack (B.zipWith xor c1 (B.cycle c2)))

Haskell is too unreadable, can you post the C code problem equivalent?