for$t(<>){ $_=5e4; $s=''; while(1){ $t>=$_?($t-=$_,$s.="$_+"):(s/10/5/||y/2/1/||y/5/2/||last); } print $s=~s/\+$/\n/r }