#!/usr/bin/perl -w

  local $\ = "\n";
  while (<>) {
    chomp;
    $_ && print $_>0 ? "positive $_" : "negative ".($_*-1);
  }