perl -e 'print sqrt sprintf "%x", join "", map {ord} split //, "JAPH"'