sub c {($a,$c)=@_;@c=@$c;return map{$a>$_? &{sub{$a-=$_*($b=int($a/$_));"$b x $_"}}:""} reverse @c} #### ,,1 x 20,,,2 x 1,2 x 0.25,,,