gistfile1.hs

module Main where

import Data.ByteString (ByteString, index)
import qualified Data.ByteString as BS
import Data.List

type Offset = Int

scan :: Offset -> ByteString -> [Offset]
scan off bs 
  | off + 2 > (BS.length bs) = []
  | (bs `index` off == 0xff) && (bs `index` (off + 1) == 0xd8) = off : scan (off + 1) bs
  | otherwise = scan (off + 1) bs

main :: IO ()
main = do
  bs <- BS.getContents
  putStrLn $ intercalate "\n" $ map show $ scan 0 bs