values=$(echo $* | tr "." "1" | tr "-" "5" | sed "s/\([0-9]\)\([0-9]\)/\1+\2/g" | sed "s/\([0-9]\)\([0-9]\)/\1+\2/g" | sed "s/S/0/g" | rev)

result=0
n=0
for line in $values
do
    if [[ $n < 2 ]]
    then
        result=$(($result + $(echo "(20^$n)*($line)" | bc)))
    else
        result=$(($result + $(echo "(18*20^$(($n-1)))*($line)" | bc)))
    fi
    n=$(( n+1 ))
done

echo $result