#!/usr/bin/perl

print (sort (  f(  0 ) ));
print (sort (  f ( 0 ) ));
print (sort ( &f ( 0 ) ));
print (sort    f(  0 ) );
print (sort    f ( 0 ) );
print (sort   &f ( 0 ) );

sub f { 1 }