i%c|elem i"\xd4\xa2\xd5\xb3\xd7\x84\xd8\x93\xd8\x94\xd8\x95\xd8\x96\xd8\x97\xd9\xa5\xd9\xa6\xd9\xa7\xda\xb7"='#'|1>0=c main=interact$zipWith(%)['('..]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page