a#b=do n<-[-div(-b)a|a>0];" + 1/"++show n++(a*n-b)#(n*b) m@main=do l<-getLine putStrLn$l++" ="++2`drop`do(a,_:b)<-reads l;a#read b m