#!/usr/bin/perluse bigint;$_=<>;while($_>70){$_-=2*chop;}print
231584178474632390847141970017375815706539969331281128078915168015826259279872
8
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!