contract BailliePSW {
    function sprp(uint a) pure returns (bool iscomposite) {
        
    }
    
    function modexp() constant returns (bytes32 o){
        assembly {
            let m := mload(0x40)
            mstore(m,1)
            mstore(add(m, 0x20),2)
            mstore(add(m,0x40), 0x20)
            mstore(add(m, 0x60), 0x03ffff8000000000000000000000000000000000000000000000000000000000)
            if iszero(call(10000, 5, 0, m, 0x80, m, 0x20)) {revert(0,0)}
            o := mload(m)
            mstore(0x40, add(0x80, m))
        }
    }
}