processPhoto :: PictureStuff -> DateStuff -> IO ()
processPhoto p sd = putStrLn (picName p) >> 
                    putStrLn "Date " >>
                    print (picDate p) >>
                    putStrLn "Week " >> 

                    let w = (calcWeek (picDate p) (sd)) in
                        let d = picDate p in
                            print ("Name: " ++ (picName p)) >> 
                            print ("FileName: " ++ takeFileName (picName p)) >> 
                            print w >> 
                            classifyPhoto p d w
processPhoto :: PictureStuff -> DateStuff -> IO ()
processPhoto p sd = putStrLn (picName p) >> 
                    putStrLn "Date " >>
                    print (picDate p) >>
                    putStrLn "Week " >> 

                    let w = (calcWeek (picDate p) (sd)) in
                        let d = picDate p in
                            print ("Name: " ++ (picName p)) >> 
                            print ("FileName: " ++ takeFileName (picName p)) >> 
                            print w >> 
                            classifyPhoto p d w
processPhoto p sd = putStrLn (picName p) >> 
                    putStrLn "Date " >>
                    print (picDate p) >>
                    putStrLn "Week " >> 

                    let w = (calcWeek (picDate p) (sd)) in
                        let d = picDate p in
                            print ("Name: " ++ (picName p)) >> 
                            print ("FileName: " ++ takeFileName (picName p)) >> 
                            print w >> 
                            classifyPhoto p d w