data 2805,1073,2236,1740,11035,915,412302,390018,121896
data 9521432,9581,7303933,55000,58,11321,45203,13543,27703
data 1235,328,240,58,53002,7387,162812,928685,141013,21,43
 
read c,d,e : riz=c*d+e
read c,d,e : lait=c*d+e
read c,d,e : caramel=c*d+e
read c,d,e : oeuf=c*d+e
read c,d,e : beurre=c*d+e
read c,d,e : beurre=beurre*10^9+c*d+e
read c,d,e : vanille=c*d+e
read c,d,e : vanille=vanille*10^7+c*d+e'
read c,d,e : PinceeDeSel=c*d+e
read c,d : farine=c : sucre=d
 
a$=""
ingredient$=str$(riz):gosub [melange]
ingredient$=str$(lait):gosub [melange]
ingredient$=str$(caramel):gosub [melange]
ingredient$=str$(oeuf):gosub [melange]
ingredient$=str$(beurre):gosub [melange]
ingredient$=str$(vanille):gosub [melange]
ingredient$=str$(PinceeDeSel):gosub [melange]
print a$
 
end
 
[melange]
    if len(ingredient$) mod 2 <> 0 then ingredient$="0"+ingredient$
    b=1
    for a=1 to len(ingredient$)/2
        eau=val(mid$(ingredient$,b,2)):b=b+2
        if eau=32 or eau=33 or eau=39 then base=eau else base=farine+sucre+eau
        a$=a$+chr$(base)
    next
return