#!/usr/bin/env perl
use utf8;
###############################################################################
# This program prints floating point constants.
# 
# Copyright © 2016 Richard Lesh.  All rights reserved.
###############################################################################

use strict;
use warnings;

MAIN:
{
    binmode(STDOUT, ":utf8");
    binmode(STDERR, ":utf8");
    binmode(STDIN, ":utf8");
    print 0e0, "\n";
    print 3.1415e0, "\n";
    print 1.5e1, "\n";
    print 3.26e2, "\n";
    print 1.23e-1, "\n";
    print -3.1415e0, "\n";
    print -1e-3, "\n";
}