group elements by I., S.

import List
m@main=getLine>>=putStrLn.map f.init.tail.show.group.map(\x->0+read x).words>>m
f ','=' '
f x=x

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page