LOCAL prefix_string , unit_string : STRING ; END_LOCAL ; IF EXISTS ( unit . prefix ) THEN CASE  unit . prefix OF  exa : prefix_string := 'e' ; peta : prefix_string := 'p' ; tera : prefix_string := 't' ; giga : prefix_string := 'g' ; mega : prefix_string := 'm' ; kilo : prefix_string := 'k' ; hecto : prefix_string := 'h' ; deca : prefix_string := 'da' ; deci : prefix_string := 'd' ; centi : prefix_string := 'c' ; milli : prefix_string := 'm' ; micro : prefix_string := 'u' ; nano : prefix_string := 'n' ; pico : prefix_string := 'p' ; femto : prefix_string := 'f' ; atto : prefix_string := 'a' ; END_CASE  ; ELSE prefix_string := '' ; END_IF ; CASE unit . name OF metre : unit_string := 'm' ; gram : unit_string := 'g' ; second : unit_string := 's' ; ampere : unit_string := 'a' ; kelvin : unit_string := 'k' ; mole : unit_string := 'mol' ; candela : unit_string := 'cd' ; radian : unit_string := 'rad' ; steradian : unit_string := 'sr' ; hertz : unit_string := 'hz' ; newton : unit_string := 'n' ; pascal : unit_string := 'pa' ; joule : unit_string := 'j' ; watt : unit_string := 'w' ; coulomb : unit_string := 'c' ; volt : unit_string := 'v' ; farad : unit_string := 'f' ; ohm : unit_string := 'ohm' ; siemens : unit_string := 's' ; weber : unit_string := 'wb' ; tesla : unit_string := 't' ; henry : unit_string := 'h' ; degree_celsius : unit_string := 'cel' ; lumen : unit_string := 'lm' ; lux : unit_string := 'lx' ; becquerel : unit_string := 'bq' ; gray : unit_string := 'gy' ; sievert : unit_string := 'sv' ; END_CASE ; RETURN ( prefix_string + unit_string ) ;