print =: 1!:2&2
read =: 1!:1[3

in =. (read-.LF) rplc CR;';'

a=: 3 : 0
 if. y=13 do. 'i'
 else. 'f'
 end.
)

b=: 3 : 0
 if. y=13 do. 'f'
 end.
)

s =. (> 2 { (;: in))
t =. (> 2 { (;: in)) rplc '.';','

tp =. a im =. $ (s compare t)


wd =. (> 0 { (;: in))

up=: 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
ln =. ((# wd) - 1)
tb =. i.ln
tk =. ln $ 1
tbl =. tb + tk

ups=.  ((0 { 3 & u: wd) - 97) { up
print > tp, ups, tbl { wd

exit ''