#! /opt/local/bin/perl5.10.0
use 5.010;
use warnings;

use Perl6::Form;


print form {interleave=>1,,single=>'^'},{single=>'='},{single=>'_'},
		   <<'.',
~~~~~~~~~
^ = ^ _ ^ {|||}
~~~~~~~~~
.
			qw(China's first taikonaut lands safely okay!);

print "\n--------------------------\n\n";

print form {single=>'='}, {interleave=>1}, <<'.',
   ^
 = | {""""""""""""""""""""""""""""""""""""}
   +--------------------------------------->
    {|||||||||||||||||||||||||||||||||||}
.
 "Height", [<DATA>], "Time";


print form <<'.',
Passed:
	{[[[[[[[[[[[[[[[[[[[}
Failed:
	{[[[[[[[[[[[[[[[[[[[}
.
[qw(Smith Simmons Sutton Smee)], [qw(Richards Royce Raighley)];


print form {interleave=>1}, <<'.',
Passed:
	{[[[[[[[[[[[[[[[[[[[}
Failed:
	{[[[[[[[[[[[[[[[[[[[}
.
[qw(Smith Simmons Sutton Smee)], [qw(Richards Royce Raighley)];

__DATA__
      *
    *   *
   *     *
          
  *       *
           
 *         *
          
         
        
*           *