FunTime←{
     ⎕IO←1
     'ap'∨/⍤∊⍵:' ?am' ' ?pm'⎕R''⊢'\d+:'⎕R{':',⍨'0'@(' '∘=)¯2↑⍕12+⍣('p'∊⍵.Block)⊢⍎¯1↓⍵.Match}⊢⍵
     num←⍎¨':'(≠⊆⊢)⍵
     suffix←' am' ' pm'⊃⍨1+~12 60∧.>num
     time←⊃(⊣,':',⊢)/'0'@(' '∘=)¨¯2↑∘⍕¨12 60|num
     time,suffix
 }