Someone

alias s1 { return $+($chr(3),10,$1-) }
alias s2 { return $+($chr(3),04,$1-) }
alias s3 { return $+($chr(3),7,$1-) }
alias s4 { return $+($chr(3),14,$1-) }