eval [regsub -all {\n\s*([*-s][^\n]*\S)} [read stdin] "\nputs {\\1}"]