string2num n = 
        fromIntegral(integer_part(take_until(n, '.'))) + 
        fraction_part(drop_while(n, '.'))
string2num n = 
        fromIntegral(integer_part(take_until(n, '.'))) + 
        fraction_part(drop_while(n, '.'))
string2num n = 
        fromIntegral(integer_part(take_until(n, '.'))) + 
        fraction_part(drop_while(n, '.'))