m@main=getLine>>=print.round.f.map read.words>>m
f x=product[sqrt$sum x/2-y|y<-0:x]