RosettaCodeData/Task/Function-composition/UNIX-Shell/function-composition-3.sh

fn compose f g {
	result @ {$g | $f}
}

fn downvowel {tr AEIOU aeiou}
fn upcase {tr a-z A-Z}
fn-c = <={compose $fn-downvowel $fn-upcase}
echo 'Cozy lummox gives smart squid who asks for job pen.' | c
# => CoZY LuMMoX GiVeS SMaRT SQuiD WHo aSKS FoR JoB PeN.
langs a-z 2013-04-10 22:43:41 -07:00			`fn compose f g {`
Just another update 2015-02-20 00:35:01 -05:00			`result @ {$g \| $f}`
langs a-z 2013-04-10 22:43:41 -07:00			`}`

Just another update 2015-02-20 00:35:01 -05:00			`fn downvowel {tr AEIOU aeiou}`
			`fn upcase {tr a-z A-Z}`
langs a-z 2013-04-10 22:43:41 -07:00			`fn-c = <={compose $fn-downvowel $fn-upcase}`
Just another update 2015-02-20 00:35:01 -05:00			`echo 'Cozy lummox gives smart squid who asks for job pen.' \| c`
langs a-z 2013-04-10 22:43:41 -07:00			`# => CoZY LuMMoX GiVeS SMaRT SQuiD WHo aSKS FoR JoB PeN.`