#!/usr/bin/env stack


import System.Process (readProcess)

main :: IO ()
main = do
    
    results <- lines <$> readProcess "hexdump" ["-C", "/etc/passwd"] ""

    
    mapM_ (putStrLn . reverse) results