/* gsplpna.tc - lrb - original by ceb - 1/14/9

gsplpn [ /* alternate a

/* Print an introductory message.
/* Reads a 'pi-like' string of characters (like 3.14159).
/* Grabs the first character from the input 
/* If this isn't in '0' to '9' range, complains.
/* Converts it to an integer. Adds 1 to the integer.
/* Prints the integer + 1 = x (e.g. 3 + 1 = 4)

pl "3.14159 i love you 365.25 days of da yeah.  Can we have pi 2day?"
pl "";pl "Enter a decimal number like 3.14";pl "";pl ""

char w(5)
int f,x

gs w
f=1
if (!((w(0)>='0')*(w(0)<='9'))) [pl "The first character in your input must be a digit.";pl "";exit]
x=w(0)-'0'+f
pl "";putchar w(0);ps " +";pn f;ps " =";pn x;pl ""

]