%
% stack: param-str
%
_Bweight
{
%
% already one parameter for weight, check weight only
%
 "lb" found?
 {
  _val 16 mul _BabyOzs add !BabyOzs
 }
 {

"pound" found?
{
  _val 16 mul _BabyOzs add !BabyOzs
}
{

"oz" found?
{
 _val _BabyOzs add !BabyOzs
}
{

"ounce" found?
{
 _val _BabyOzs add !BabyOzs
}
{

} ifelse


} ifelse


} ifelse


 } ifelse




}
{



 _Blength
 {
%
% already one parameter for length, check length only
%

"in" found?
{
 _val _BabyIns add !BabyIns
}
{

"ft" found?
{
 _val 12 mul _BabyIns add !BabyIns
}
{

"feet" found?
{
 _val 12 mul _BabyIns add !BabyIns
}
{
} ifelse

} ifelse


} ifelse






 }
 {
%
% no parameters for weight or length yet, check all types
%


 "lb" found?
 {
  _val 16 mul _BabyOzs add !BabyOzs
  true !Bweight
 }
 {

"pound" found?
{
  _val 16 mul _BabyOzs add !BabyOzs
  true !Bweight
}
{

"oz" found?
{
 _val _BabyOzs add !BabyOzs
  true !Bweight
}
{

"ounce" found?
{
 _val _BabyOzs add !BabyOzs
  true !Bweight
}
{



"in" found?
{
 _val _BabyIns add !BabyIns
 true !Blength
}
{

"ft" found?
{
 _val 12 mul _BabyIns add !BabyIns
 true !Blength
}
{

"feet" found?
{
 _val 12 mul _BabyIns add !BabyIns
 true !Blength
}
{
} ifelse

} ifelse


} ifelse





} ifelse


} ifelse


} ifelse


 } ifelse







 } ifelse

} ifelse

pop