#!/usr/bin/env runghc

import Network.HTTP.Lucu.MIMEType.Guess

main = do extMap <- parseExtMapFile "/dev/stdin"
          outputExtMapAsHS extMap "/dev/stdout"