sub swrite {
    croak "Usage: swrite PICTURE ARGS" unless @_;
    my $format = shift;
    $^A = "";
    formline( $format, @_ );
    return $^A;
} #end sub swrite()