f x|x<"01"||x>"13"=x|x>"12"=x++" PM"|1<2=x++" AM"
m@main=getLine>>=putStrLn.f>>m