{
submode = 0
mode = 3
len = length($0)
p0 = ""
for ( a = 1; a <= len ; ++a){
char = substr( $0, a, 1)
if ( mode == 8)
p0 = ( p0 char )
if (mode == 6){
if ( char == " " ){
mode = 8
#p0 = ( p0 ") " )
p0 = ( p0 " " )
}
else
p0 = (p0 char)
}
if (mode == 5){
if ( char == " " )
submode = 1
else{
if ( char == ")" ){
mode = 8
p0 = (p0 char)
}
else{
if ( submode == 1 ){
p0 = ( p0 " " char )
submode = 0
}
else
p0 = ( p0 char )
}
}
}
if (mode == 4){
if (char != " " ){
p0 = (p0 char)
mode = 5
}
}
if ( mode == 3){
if (char == " ")
p0 = ( p0 char )
else{
if (char == "(" ){
mode = 4
p0 = ( p0 char )
}
else{
mode = 6
#p0 = ( p0 "(" char )
p0 = ( p0  char )
}
}
}
}
print p0
}
