segs by konn

main=interact$unlines.(>>=(init#)).(tail#)
f#[]=[]
f#t=f#(f t)++[t]

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

download

return to the top page