m@main=getLine>>=putStrLn.f.span('/'<)>>m f(a,s:b)=a#b:[s:b#a|b#a>"1"]>>=id a#b=show$div%a$gcd%a%b (%)=(.read)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page