#Perl, 18 + 1 = 19 13 + 1 = 14 bytes#

print while$_ 

Run like this:

echo -n NUM | perl -p truth.pl 

Thanks to ThisSuitIsBlackNot (who is way better at Perl golfing than me) for golfing off five bytes.

Perl, 18 + 1 = 19 13 + 1 = 14 bytes

print while$_ 

Run like this:

echo -n NUM | perl -p truth.pl 

Thanks to ThisSuitIsBlackNot (who is way better at Perl golfing than me) for golfing off five bytes.

#Perl, 18 + 1 = 19 bytes#

while($_+0){print} 

Run like this:

perl -p truth.pl <<< NUMBER 

#Perl, 18 + 1 = 19 13 + 1 = 14 bytes#

print while$_ 

Run like this:

echo -n NUM | perl -p truth.pl 

Thanks to ThisSuitIsBlackNot (who is way better at Perl golfing than me) for golfing off five bytes.