// vim: set et ts=2 sw=2 :

$use Rational;
$use StdIO;

$func Main = e;

Main =
  {
    <WriteLn <QFromString ''>>;
    <PrintLn 'Fail'>;
  },
  <WriteLn <QFromString '0'>>,
  <WriteLn <QFromString '0.0'>>,
  <WriteLn <QFromString '10.00'>>,
  <WriteLn <QFromString '0.10'>>,
  <WriteLn <QFromString '.10'>>,
  <WriteLn <QFromString '-0.0'>>,
  <WriteLn <QFromString '-10.00'>>,
  <WriteLn <QFromString '-0.10'>>,
  <PrintLn <QToString 0 (1 3)>>,
  <PrintLn <QToString 1 (1 3)>>,
  <PrintLn <QToString 10 (1 3)>>,
  <PrintLn <QToString 0 (-7 3)>>,
  <PrintLn <QToString 1 (-7 3)>>,
  <PrintLn <QToString 10 (-7 3)>>,
  <PrintLn <QToString 0 (1 4)>>,
  <PrintLn <QToString 1 (1 4)>>,
  <PrintLn <QToString 10 (1 4)>>,
  <PrintLn <QToString 0 (-7 4)>>,
  <PrintLn <QToString 1 (-7 4)>>,
  <PrintLn <QToString 10 (-7 4)>>;