let rec learnIn1 res k   = if k=27 then res else 
   learnIn1 (res^(exformat k)^"/") (k+1)