Parrot - Hello You Program

print    "What is your name? "
getstdin P0
readline S0, P0
print    "Hello "
chopn    S0, 1
print    S0
print    ", how are you?\n"
end