on 1:input:*: { if $regex($1,/^//) || $ctrlenter { return }
say $replace($1-,:,$chr(166)) | halt }