while 1=1do let s=read_line()in Printf.printf"#%s# "(String.make(String.length s-2)s.[2])done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page