#!/usr/bin/pugs
use v6;
use Test;
use fp;
plan 5;
is identity(3), 3, "id() works";
is const(3).(5), 3, "const() works";
is ~tail((1,2,3)), "2 3", "tail() works";
is ~init((1,2,3)), "1 2", "init() works";
is ~replicate(3, { state $x; ++$x }), "1 2 3", "take() with a Code works";