# # This software is Copyright 2005 by Elsevier Inc. You may use it # under the terms of the license at http://perl.plover.com/hop/LICENSE.txt . # ### ### scale ### ## Chapter 7 section 1 sub scale { my $c = shift; return sub { my $s = shift; transform { $_[0] * $c } $s; } }