fraction_imp (s:t) = fromIntegral(char2nr(s)) + fraction_imp(t) * 0.1
fraction_imp (s:t) = fromIntegral(char2nr(s)) + fraction_imp(t) * 0.1
fraction_imp (s:t) = fromIntegral(char2nr(s)) + fraction_imp(t) * 0.1