{

namespace phx = boost::phoenix;

using boost::phoenix::arg_names::arg1;

using boost::phoenix::arg_names::arg2;

using boost::phoenix::arg_names::arg3;

using namespace phx;

list<int> l = enum_from(2);

list<int> evens = filter(even,l);

list<int> odds = filter(odd,l);

list<int> even4 = take(4,evens)();

list<int> odd4 = take(4,odds)();

BOOST_TEST(head(scanr(plus,0,even4))() == 20);

BOOST_TEST(last(scanl(plus,0,even4))() == 20);

BOOST_TEST(head(scanr1(plus,even4))() == 20);

BOOST_TEST(last(scanl1(plus,even4))() == 20);

list<int> map_result = map(inc,even4)();

list<int> zip_with_result = zip_with(plus,even4,odd4)();

BOOST_TEST(foldl1(plus,map_result)() == 24);

BOOST_TEST(last(zip_with_result)() == 17);

typedef std::pair<int,int> pair_ii;

list<pair_ii> zip_result1 = zip_with(make_pair,even4,odd4)();

list<pair_ii> zip_result2 = zip(even4,odd4)();

BOOST_TEST(head(zip_result1)().first == 2);

BOOST_TEST(last(zip_result2)().second == 9);

return boost::report_errors();