let rec learnData1 result k   = if k=27 then result else 
   learnData1 (result^(exLearn k)^",") (k+1)