import Imlib
import System
import List

fileExt = (head . filter (notElem '.') . tails)

main = do
    args <- getArgs
    let (file:newfile:_) = args
    im <- load_image file
    context_set_image im
    image_set_format (fileExt newfile)
    save_image newfile